В текстовом файле отсортировать строки по возрастанию их длин. - Pascal ABC

program og;
 
const
  con = 50;
 
var
  f, fo: text; 
  a: array[1..con] of string[60];
  c, s: string[60]; i, k, j, minL: integer;
 
begin
  
  assign(f, '1.txt'); reset(f); //Инициализация входного файла.
  assign(fo, '2.txt');rewrite(fo);//Инициализация файла вывода.
  i := 1;
  while not eof(f) do //Считываем данные из файла в массив.
  begin
    readln(f, a[i]);
    i := i + 1; end;
  
  for j := 1 to i do //Вывод данных из файла на экран
    writeln(a[j]);
  
  for k := 1 to i - 1 do //Сортируем строки по возрастанию.
  begin
    for j := 1 to i - k do 
      if length(a[j]) > length(a[j + 1]) then begin c := a[j]; a[j] := a[j + 1]; a[j + 1] := c end;
  end;
  //выводим в файл fo отсортированный массив по возрастанию длин строк.
  for j := 1 to i do 
    writeln(fo, a[j]);
  close(f);close(fo);
end.