Zoradenie známok

//Program si vypýta n známok z programovania a vypíśe ich zoradené od najmenšej po najväčšiu ale aj v pôvodonom
program zoradenieznamok;
{$APPTYPE CONSOLE}
uses SysUtils;
type znamky=1..5;
var z:array[1..255] of znamky;
    m:array[1..255] of string;
    i,n:byte;
    pm:string;
    p:znamky;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  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
      write(m[i],' ',z[i],' ');
    end;
  i:=0;
  while i<>n do
    begin
      inc(i);
      if z[i]>z[i+1] then
        begin
          p:=z[i];
          z[i]:=z[i+1];
          z[i+1]:=p;
          pm:=m[i];
          m[i]:=m[i+1];
          m[i+1]:=pm;
          i:=0;
        end;
    end;
  writeln;
  for i:=2 to n+1 do
    begin
      write(m[i],' ',z[i],' ');
    end;
  readln;
end.