najlepsianajhorsiaznamka

//Program ktorý si vypýta mena žiakov a ích známku z matematiky a vypíśe ktorý žiak má z matematiky najlepšiu a najhoršiu známku
program najlepsianajhorsiaznamka;
{$APPTYPE CONSOLE}
uses SysUtils;
var n,i,z,zmin,zmax:byte;
    m,mmin,mmax:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte pocet ziakov: ');
  readln(n);
  zmin:=5;
  zmax:=1;
  for i:=1 to n do
    begin
      write('Zadajte meno ',i,' ziaka: ');
      readln(m);
      write(m,' dostal znamku: ');
      readln(z);
      if z>zmax then
        begin
          zmax:=z;
          mmax:=m;
        end;
      if z<zmin then
        begin
          zmin:=z;
          mmin:=m;
        end;
    end;
    writeln('Najlepsiu znamku mal ',mmin,' znamka bola ',zmin);
    writeln('Najhorsiu znamku mal ',mmax,' znamka bola ',zmax);
  readln;
end.