Random známka

//Program ktorý si vypýta mená žiakov v triede a každému žiakovy vygeneruje žiakovy známku od 1 po 5
program nahodneznamky;
{$APPTYPE CONSOLE}
uses SysUtils;
type znamky=1..5;
var i,z,szn,znmax,znmin:byte;
    zn:znamky;
    meno,maxmeno,minmeno:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko ziakov je v triede?: ');
  readln(z);
  znmax:=0;
  znmin:=5;
  szn:=0;
  randomize;
  for i:=1 to z do
    begin
      write('Zadajte meno ',i,' ziaka: ');
      readln(meno);
      zn:=random(6);
      writeln(meno,' dostal: ',zn);
      if zn>znmax then
        begin
          znmax:=zn;
          maxmeno:=meno;
        end;
      if zn<znmin then
        begin
          znmin:=zn;
          minmeno:=meno;
        end;
      szn:=szn+zn;
    end;
  writeln;
  writeln('Najlepsiu znamku dostal ',minmeno,' znamka bola ',znmin);
  writeln('Najhorsi znamku dostal ',maxmeno,' znamka bola ',znmax);
  writeln('Priemer znamok: ',szn/z:1:2);
  readln;
end.