ошибка в процедуре сортировки строк массива

[halfpenny]

Дан массив, содержащий элементы строкового типа. Напишите процедуру, которая будет сортировать первые n элементов массива по возрастанию текущих длин строк.

program b32;
uses Crt;
var s:array[1..50] of string;
x:string;
n,i,j:integer;
procedure sort(m,a,b:integer; var y:string; t:array of string);
begin
for a:=1 to m-1 do
for b:=a+1 to m do
if t[a]>t[b] then
begin
y:=t[a];
t[a]:=t[b];
t[a]:=y;
end;
for a:=1 to m do
write(t[a],' ');
writeln;
writeln;
end;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
readln(s[i]);
clrscr;
for i:=1 to n do
write(s[i],' ');
writeln;
writeln;
sort(n,i,j,x,s);
readln;
end.

почему-то он удаляет первую строку и все.

[Hacker19_90]

У вас при сортировке ошибка

if t[a]>t[b] then
begin
y:=t[a];
t[a]:=t[b];
t[a]:=y; {Одному и тому же присваиваете}
end;