Сортировка двумерного массива

Program masif;
uses crt;
const n=5;
var a:array [1..n,1..3] of string;
j,m,i,t1,b,c,k,h:integer;



begin
clrscr;
{1 ®Є*®, Ї®бв**®ўЄ* §*¤*зЁ}
textbackground(4);
clrscr;
textbackground(8);
window(1,1,38,10);
clrscr;
textcolor(15);
writeln('Џ®бв**®ўЄ* §*¤*зЁ:' );
writeln('‚ ўҐ¤®¬®бвЁ гбЇҐў*Ґ¬®бвЁ гЄ*§**®,');
writeln('д*¬Ё«Ёп,Є«*бб,Ё б।*пп ®жҐ*Є* Ї® ўбҐ¬ ЇаҐ¤¬Ґв*¬ ');
writeln('ўлўҐбвЁ бЇЁб®Є е®а®иЁбв®ў Ё ®в«Ёз*ЁЄ®ў');
writeln('®вб®авЁа®ў*вм бЇЁб®Є гз*йЁебп');
writeln('ў Ї®ап¤ЄҐ гЎлў**Ёп ҐЈ® б।*Ґ© ®жҐ*ЄЁ');
write('Ќ*¦¬ЁвҐ Enter...');
readln;
textbackground(8);
window(40,1,78,10);
clrscr;
For i:=1 to n do
begin
textcolor(15);
writeln('‚ўҐ¤ЁвҐ д*¬Ё«Ёо ',i,' гз*饣®бп');
textcolor(15);
readln(a[i,1]);
textcolor(15);
writeln('‚ўҐ¤ЁвҐ Є«*бб ',i,' гз*饣®бп');
textcolor(15);
readln(a[i,3]);
repeat
textcolor(15);
writeln('‚ўҐ¤ЁвҐ б।*оо ®жҐ*Єг ',i,' гз*饣®бп');
textcolor(15);
readln(a[i,2]);
val (a[i,2],c,h);
if (c<=0) or (c>=6) then
begin
textcolor(red);
writeln('ЋиЁЎЄ*, Ї®ўв®аЁвҐ ўў®¤');
end;
until (c>0) and (c<6);
end;
write('Ќ*¦¬ЁвҐ Enter...');
readln;
{3} {3}
textbackground(8);
window(1,12,38,24);
clrscr;
textcolor(15);
writeln(' ‚Ґ¤®¬®бвм гбЇҐў*Ґ¬®бвЁ');
writeln('|------------------------------------|');
write('|');
write(' ”*¬Ё«Ёп');
write(' |');
write(' Љ«*бб');
write(' |');
write(' ‘।*пп ®жҐ*Є*');
write('|');
writeln('|------------------------------------|');
writeln('|':1,a[1,1]:5,'|':6,a[1,3]:6,'|':4,a[1,2]:6,'|':10);
writeln('|':1,a[2,1]:5,'|':6,a[2,3]:6,'|':4,a[2,2]:6,'|':10);
writeln('|':1,a[3,1]:5,'|':6,a[3,3]:6,'|':4,a[3,2]:6,'|':10);
writeln('|':1,a[4,1]:5,'|':6,a[4,3]:6,'|':4,a[4,2]:6,'|':10);
writeln('|':1,a[5,1]:5,'|':6,a[5,3]:6,'|':4,a[5,2]:6,'|':10);

writeln('|------------------------------------|');
writeln('**¦¬ЁвҐ Enter...');
readln;
{4 ®Є*®}
textbackground(8);
window(40,12,78,24);
clrscr;

readln;
end.