помогите сделать сортировку во второй табличке по марке самолёта...

[DIzza]

program praktika3;
uses crt;
type
spisok=record
nr:string[25];
m:string[25];
ms:string[10];
end;
type
spisok2=record
ms:string[25];
kr:integer;

end;
Var
kr,x,i,j,n,f,v:integer;
ms:real;
r,tab:array[1..100]of spisok;
k:array[1..100] of spisok2;
l:real;
Begin
clrscr;
write('vvedite kol-vo reisov:');read(n);
for j:=1 to n do begin
readln;
clrscr;
with tab[j] do begin
write('nomer reisa:');readln(tab[j].nr);
write('marshrut:');readln(tab[j].m);
write('marka samoleta:');readln(tab[j].ms);
end;
end;
writeln;
clrscr;
Writeln('╔═════════════╦═══════════ ═══════════╦═══════════════════════ ═══╗');
writeln('║ nomer reisa ║ marshrut ║ marka samoleta ║');
Writeln('╠═════════════╬═══════════ ═══════════╬═══════════════════════ ═══╣');
for j:=1 to n do begin
with tab[j] do begin
write('║ ');write(tab[j].nr:10);write(' ║ ');
write(tab[j].m:10);write(' ║');
write(tab[j].ms:10);write(' ║');
end;
writeln;
end;
writeln('╚═════════════╩═══════════ ═══════════╩═══════════════════════ ═══╝');
writeln;





Writeln('╔═════════════╦═══════════ ═══════════╦═══════════════════════ ═══╗');
writeln('║ nomer reisa ║ marshrut ║ marka samoleta ║');
Writeln('╠═════════════╬═══════════ ═══════════╬═══════════════════════ ═══╣');
for j:=1 to n do begin
with tab[j] do begin
write('║ ');write(tab[j].nr:10);write(' ║ ');
write(tab[j].m:10);write(' ║');
write(tab[j].ms:10);write(' ║');
end;
writeln;
end;
writeln('╚═════════════╩═══════════ ═══════════╩═══════════════════════ ═══╝');




writeln('╔═════════════════════╦═══ ═══════════════════╗');
writeln('║ marka samoleta ║ kol-vo reisov ║');
writeln('╠═════════════════════╬═══ ═══════════════════╣');

begin
write('║');write(ms:10);
write(' ║ ');
write(kr, ' ║');
end;
writeln;
writeln('╠═════════════════════╩═══ ═══════════════════╣ ');
writeln('║ -=******VbIXodnoi dokument******=- ║');
writeln('╚═════════════════════════ ═══════════════════╝');
readkey;
end.