NEDOKONCENE - Databaza ziakov

//Napiste program ktory si vypyta mena ziakov v n triedach a v kazdej triede je m ziakov
//program vypise databazu ziakov na obrazovku
//program vypise v ktorych triedach sa ziak s danim menom nachadza a kolko krat
program ziaci;
{$APPTYPE CONSOLE}
uses SysUtils;
var pz,pt,i,j,pm:byte; hm:string;
    z:array[1..30,1..30] of string;
    t:array[1..30] of string;
    vt:array[1..30] of byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte pocet tried: ');
  readln(pt);
  write('Zadajte pocet ziakov: ');
  readln(pz);
  for i:=1 to pt do
    begin
      write('Zadajte meno ',i,' triedy: ');
      readln(t[i]);
    end;
  for i:=1 to pt do
    begin
      for j:=1 to pz do
        begin
          write('Zadajte meno pre ',j,' ziaka v ',t[i],': ');
          readln(z[i,j]);
          vt[i]:=0;
        end;
    end;
  for i:=1 to pt do
    begin
      for j:=1 to pz do
        begin
          write('  ',z[i,j],' [',t[i],'] ');
        end;
      writeln;
    end;
  writeln('Pre ukoncenie vyhladavania zadajte "stop"');
  repeat
    write('Zadajte hladane meno: ');
    readln(hm);
    pm:=0;
    for i:=1 to pt do
      begin
        for j:=1 to pz do
          begin
            if hm=z[i,j] then
              begin
                inc(pm);
                inc(vt[i]);
              end;
          end;
      end;
    writeln('Meno ',hm,' sa v databaze nachadza ',pm,'-krat a nachadza sa v triedach');
    for i:=1 to pt do
      begin
        writeln(t[i],' Vyskyt: ',vt[i],' krat.');
      end;
  until (hm='Stop') or (hm='stop') or (hm='stoP') or (hm='STOP');
  readln;
end.