Naloga iz Pascala

program sljotech;
uses wincrt;

type folk=record
      ime:string;
      priden:boolean;
      hiter:boolean;
      dober:boolean;
      natancen:boolean;
      spreten:boolean;
     end;

var tabela:array [1..10] of folk;  
    a:integer;

procedure izpis;
          begin
           for a:=1 to 10 do
            begin
            writeln('Lastnosti za : ',tabela[a].ime);
            writeln('Priden :',tabela[a].priden);
            writeln('Hiter : ',tabela[a].hiter);
            writeln('Dober : ',tabela[a].dober);
            writeln('Natancen : ',tabela[a].natancen);
            writeln('Spreten : ',tabela[a].spreten);
            writeln;
           end;
           end;
begin
izpis;
end.