pznamka

//Napíšte aplikáciu na vygenerovanie n známok u n žiakov. program tieto vygenerované známky vypíše ďalej napíše aká bola najhoršia a aká bola najhoršia a priemer.
program pznamka;
{$APPTYPE CONSOLE}
uses SysUtils;
type znamka=1..5;
var n,i,s,max,min:byte;
    z:array[1..255] of znamka;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko je ziakov: ');
  readln(n);
  max:=0;
  min:=5;
  randomize;
  for i:=1 to n do
    begin
      z[i]:=random(5)+1;
      write(z[i],' ');
      s:=s+z[i];
      if z[i]>max then max:=z[i];
      if z[i]<min then min:=z[i];
    end;
  writeln;
  writeln('Najlepsia znamka: ',min);
  writeln('Najhorsia znamka: ',max);
  writeln('Priemer znamok: ',s/n:0:2);
  readln;
end.