skokani

//Napiste program ktory bude do pola nacitavat udaje sutaziacich zo skoku do dialky
//, Meno, Priezvisko, Rok nar, Mesto, a try skoky v cm
program databazaskokov;
{$APPTYPE CONSOLE}
uses SysUtils;
type rok=1..3000;
var m,p,ms:array[1..30] of string;
    s,s2,s3:array[1..30] of byte;
    rn:array[1..30] of rok;
    pz,i:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko ludi bolo zucastnenych?: ');
  readln(pz);
  for i:=1 to pz do
    begin
      write('Zadajte meno ',i,' sutaziaceho: ');
      readln(m[i]);
      write('Zadajte priezvisko ',i,' sutaziaceho: ');
      readln(p[i]);
      write('Zadajte rok narodenia ',i,' sutaziaceho: ');
      readln(rn[i]);
      write('Zadajte mesto ',i,' sutaziaceho: ');
      readln(ms[i]);
      write('Zadajte 1 skok ',i,' sutaziaceho: ');
      readln(s[i]);
      write('Zadajte 2 skok ',i,' sutaziaceho: ');
      readln(s2[i]);
      write('Zadajte 3 skok ',i,' sutaziaceho: ');
      readln(s3[i]);
    end;
  writeln('Vypis databazy');
  for i:=1 to pz do
    begin
      writeln(m[i]:10,' ',p[i]:10,' ',rn[i]:10,' ',ms[i]:10,' ',s[i]:6,' ',s2[i]:6,' ',s3[i]);
      su[i]:=su[i]+s[i]+s2[i]+s3[i];
    end;
  readln;
end.