Сортировка записей в файле. Turbo Pascal.

[Dexterello]

Здравствуйте, вот вопрос у меня такой - надо создать процедуру создания файла (я знаю, что надо с ioresult - но это добавлю после окончания работы) и сортировку записей по длине. запись у нас выглядит следующий образом (надо именно так)
st=record
a:string;
end;
а вот сама сортировка:
reset(ff);
i:=1;
repeat
read(ff,zap);
m[i].a:=zap.a;
inc(i);
until eof(ff);
for i:=1 to filesize(ff)-1 do
for j:=i+1 to filesize(ff) do
begin
if length(m[j].a)<length(m[i].a) then
begin
temp:=m[j].a;
m[j].a:=m[i].a;
m[i].a:=temp;
end;
reset(ff);
i:=1;
repeat
read(ff,zap);
zap.a:=m[i].a;
inc(i);
until eof(ff);
end;

close(ff);
не работает. подскажите, в чём ошибка?

[NeshSoft]

reset(ff);
i:=1;
repeat
read(ff,zap);
zap.a:=m[i].a;
inc(i);
until eof(ff);

Тут ошибка. нужно так:

close(ff);
rewrite(ff);
i:=1;
repeat
  zap.a:=m[i].a;
  writeln(ff,zap);
  inc(i);
until i>length(m);

PS Код нужно писать в специальных тегах CODE, и делать отступы, чтобы код был удобочитаем