Сортировка файла Опции

[Совсем новичок]

Доброго времени суток.
Вот задача упорядочения данных файла.(файл неструктурированный!) (не могу решить вообще :-), выручайте!)

В файле содержится инфа в таком виде:
<название_объекта_1>, <размерность_обЪекта_1>
<название_объекта_2>, <размерность_обЪекта_2>
<название_объекта_3>, <размерность_обЪекта_3>
...
...
и т.д.
(сколько угодно обЪектов)


В НОВЫЙ файл переписать упорадоченную, например, по убыванию "размерности_объекта" инфу, т.е., например:
если "<размерность_обЪекта_2>" больше "<размерность_обЪекта_1>" и всех остальных, а "<размерность_обЪекта_1>" больше "всех остальных", то в новый файл переписывается:
<название_объекта_2>, <размерность_обЪекта_2>
<название_объекта_1>, <размерность_обЪекта_1>
<название_объекта_3>, <размерность_обЪекта_3>
...
...
и т.д.


Заранее благюдарю за помощь!

[not_programmer]

Решил эту задачу.
Одно замечание: в исходном файле с данными, данные хранятся в виде:
<название объекта1>
<размерность1>
<пустая строка>
<название объекта2>
<размерность2>
<пустая строка>
<название объекта3>
<размерность3>
...
(мне так легче считывать в структуру)
(у меня задание было про реки и их протяженность)

Program Rivers;
Uses
    Crt;
Type
    River = Record
          Name : String;
          Length : Integer;
            END;

Var
             Mas : Array[1..100] Of River;
   Input, Output : Text;
         I, J, N : Integer;
         BufName : String;
       BufLength : Integer;
      NameOfFile : String;

BEGIN
  ClrScr;
  Write('Enter name of file : ');
  Readln(NameOfFile);
  Assign(Input,'Input.txt');
  Reset(Input);
  assign(Output,'Output.txt');
  Rewrite(Output);
  While (NOT EOF(Input)) Do
    BEGIN
      Inc(I);
      ReadLn(Input,Mas[I].Name);
      ReadLn(Input,Mas[I].Length);
      ReadLn(Input);
      end;
  For N := 1 To I - 1 Do
      For J := 1 To (I - N) Do
          If Mas[J].Length < Mas[J + 1].Length Then
             BEGIN
               BufName := Mas[J].Name;
               Mas[J].Name := Mas[J + 1].Name;
               Mas[J + 1].Name := BufName;
               BufLength := Mas[J].Length;
               Mas[J].Length := Mas[J + 1].Length;
               Mas[J + 1].Length := BufLength;
             END;
  For J := 1 To (I - 1) Do
      BEGIN
        WriteLn(Output, Mas[J].Name);
        WriteLn(Output, Mas[J].Length);
        WriteLn(Output);
      END;
  Close(Input);
  Close(Output);
END.