Сортировка файла

[Dem6]

procedure voice;
begin
clrscr;
rewrite(res_f);
   reset(info_f);
   while not eof(info_f) do begin
   read(info_f,info);
    reset(pynkt_f);
      while not eof(pynkt_f) do begin
         read(pynkt_f,obl);
         write(info.fio , '(' , info.part , ') : '  ,obl.pynkt,  ' -> ');
         readln(votes);
         writeln(res_f,info.fio:35,' |',info.part:10,' |',obl.pynkt:10,' |',votes:10, '|');
      end;
      end;
    close(res_f);
end;

Файл RES_F не типизированный.
После ввода данных получаем вот такой файл

          ФИО                        Партия    Нас. пункт    Кол-во
                                                                        голосов
--------------------------------------------------------------------------------
                               Дем1 |      КПСС |        Смела |        45 |
                               Дем1 |      КПСС |   Черкассы |        45 |
                               Дем2 |      КПСС |        Смела |        50 |
                               Дем2 |      КПСС |   Черкассы |        51 |
--------------------------------------------------------------------------------

Меня интересует как можно этот файл отсортировать до вида:

            ФИО                        Партия    Нас. пункт    Кол-во
                                                                         голосов
--------------------------------------------------------------------------------
                               Дем2 |      КПСС |  Черкассы |        51 |
                               Дем2 |      КПСС |       Смела |        50 |
                               Дем1 |      КПСС |       Смела |        45 |
                               Дем1 |      КПСС |  Черкассы |        45 |
--------------------------------------------------------------------------------

[Лубышев]

Вот один из способов.

(не помню можно ли создавать динамический массив в Паскале?)

Открываем файл на чтение.
Устанавливаем курсор в нужную строку (пропускаем шапку).
Копируем все "записи" в буффер - массив строк.
Закрываем файл.
Сортируем массив по "методу пузырька" (хотя бы) - обсуждалось
Открываем файл на запись.
Перезаписываем.
Дописываем шапку.
Цикл (от 0 до конца массива) по записыванию записей, хронящихся в буфере
Закрываем файл.
Готово.

[Скандербег]

function Sorting(List: TStringList; Index1, Index2: Integer): Integer;
var
  S1, S2 : string;
begin
  //здесь сортировка по кол-ву голосов (размещенных в конце строк), но никто не мешает сделать по-другому
  S1 := Copy(List[Index1], Length(List[Index1])-10, 255);
  S2 := Copy(List[Index2], Length(List[Index2])-10, 255);
  Result := 0;
  if S1 = S2 then Exit;
  if S1 < S2 then Result := 1
             else Result := -1
end;

procedure voice;
var SL : TStringList;
begin
clrscr;
rewrite(res_f);
   reset(info_f);
   while not eof(info_f) do begin
   read(info_f,info);
    reset(pynkt_f);
      while not eof(pynkt_f) do begin
         read(pynkt_f,obl);
         write(info.fio , '(' , info.part , ') : '  ,obl.pynkt,  ' -> ');
         readln(votes);
         writeln(res_f,info.fio:35,' |',info.part:10,' |',obl.pynkt:10,' |',votes:10, '|');
      end;
      end;
    close(res_f);

  SL := TStringList.Create;
  try
    SL.LoadFromFile(<имя файла res_f>);
    SL.Sorted := False;
    SL.CustomSort(@Sorting);
    SL.SaveToFile(<имя файла res_f>);
  finally
    SL.Free;
  end;
end;

[Dem6]

Я создал новую процедуру:

procedure sort;
var
   s:array[1..100] of string;
   i:integer;
  st:string;
begin
 reset(res_f);
 i:=1;
   while not eof(res_f) do begin
     readln(res_f,votes);
     st:=copy(votes,62,10);
     s[i]:=st;
     inc(i);
   end;
end;

И как только я её запустил у меня выбила ошибка

Error 202: stack overflow error

Может я что-то в процедуре не так написал?
Буду очень благодарен если поможете дописать мою процедуру.

[Dem6]

После того когда я поменял

 s:array[1..100] of string;

на

 s:array[1..50] of string;

ошибку перестало выбивать.

[Dem6]

Вот делаю по книжному примеру(метод пузырька):

procedure sort;
var
   s:array[1..50] of integer;
 l, amin,i,n,j:integer;
  st:string;
  vote: longint;
  err: integer;
begin
 reset(res_f);
  n:=1;
   while not eof(res_f) do begin
   readln(res_f,votes);
     val(copy(votes,62,10),vote,err);
     s[i]:=vote;
     writeln(s[i]);
     inc(n);
   end;
  for i:=1 to n do begin
    amin:=s[i];
    l:=i;
    J:=i+1;
    while j<=n do begin
      if amin>s[j] then
        begin
          amin:=s[j];
          l:=j;
        end;
      j:=J+1;
    end;
    s[l]:=s[i];
    s[i]:=amin;
  end;
  writeln('После сортровки');
  for i:=1 to n do writeln(s[i]);
end;

А вот мой результат:

45
45
50
51
После сортровки
51
522
522
4102
25456

Вместо 4 элементов я получаю 5. И где берутся такие числа?
Первый элемент отсортировало правильно, а остальных я вообще не вижу