Výška žiakov

//Napiste aplikaciu ktora umozni ucitelovy zotriedit ziakov v triede podla vysky.
//Aplikacia pracuje s udajmi: meno, priezvisko a vyska.
program vyskaziakov;
{$APPTYPE CONSOLE}
uses SysUtils;
var i,n,pv:byte; pm,pp:string;
    m,p:array[1..255] of string;
    v:array[1..255] of byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte pocet ziakov: ');
  readln(n);
  for i:=1 to n do
    begin
      write('Zadajte meno ',i,' ziaka: ');
      readln(m[i]);
      write('Zadajte priezvisko ',i,' ziaka: ');
      readln(p[i]);
      write('Zadajte vysku ',i,' ziaka: ');
      readln(v[i]);
    end;
  i:=0;
  while i<>n do
    begin
      inc(i);
      if v[i]>v[i+1] then
        begin
          pv:=v[i];
          v[i]:=v[i+1];
          v[i+1]:=pv;
          pm:=m[i];
          m[i]:=m[i+1];
          m[i+1]:=pm;
          pp:=p[i];
          p[i]:=p[i+1];
          p[i+1]:=pp;
          i:=0;
        end;
    end;
  for i:=2 to n+1 do writeln('  ',m[i]:6,' ',p[i]:9,' ',v[i]);
  readln;
end.