Zoradenie ziakov

//Napiste program ktory si vypýta tieto údaje: Meno, priezvisko, triedu a známku z matematiky n žiakov.
//Program urobí výpis ako aj výpis zoradených údajov podla známky
program zoradenieziakov;
{$APPTYPE CONSOLE}
uses SysUtils, Crt in 'CRT\crt.pas';
type znamka=1..5;
var n,i:byte;
    m,t:array[1..255] of string;
    z:array[1..255] of znamka;
    pz:znamka; pm:string; pt:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko ziakov pisalo pisomku?: ');
  readln(n);
  for i:=1 to n do
    begin
      write('Zadajte meno ',i,' ziaka: ');
      readln(m[i]);
      write('Zadajte triedu ',i,' ziaka: ');
      readln(t[i]);
      write('Zadajte znamku ',i,' ziaka: ');
      readln(z[i]);
    end;
  for i:=1 to n do writeln('  ',m[i]:6,' ',t[i],' ',z[i]);
  i:=0;
  while i<>n do
    begin
      inc(i);
      if z[i]>z[i+1] then
        begin
          pz:=z[i];
          z[i]:=z[i+1];
          z[i+1]:=pz;
          pm:=m[i];
          m[i]:=m[i+1];
          m[i+1]:=pm;
          pt:=t[i];
          t[i]:=t[i+1];
          t[i+1]:=pt;
          i:=0;
        end;
    end;
  writeln;
  for i:=2 to n+1 do writeln('  ',m[i]:6,' ',t[i],' ',z[i]);
  readln;
end.