znamky

//Napíšte program ktorý si vypýta mená žiakov a ich známku z programovania a rozdelí týchto žiakov na nad priemerných a podpriemerných
program znamky;
uses SysUtils;
var m:array[1..255] of string
    z:array[1..255] of byte;
    i,n:byte
begin
  write('Kolko ziakov je v triede?: ');
  readln(n);
  for i:=1 to n do
    begin
      write('Zadajte meno ',i,' ziaka: ');
      readln(m[i]);
      write('Zadajte znamku ',i,' ziaka: ')
      readln(z[i]);
    end;
  for i:=1 to n do
    begin
      if z[i]<3 then writeln('Nad priemery ziak: ',m[i],' ',z[i]);
        else writeln('Pod priemery ziak: ',m[i],' ',z[i]);
    end;
  readln;
end;