Воторения

[Dem6]

Вот я написала такую процедуру, которая сортирует рейтинг кандидатов:

procedure  get;
var
 s:array[1..50] of integer;
 s1:array[1..50] of string;
n,k,i,j,l: integer;
 vote: longint;
 amin,err: integer;
  q,bmin:string;
begin
clrscr;
 reset(res_f);
 reset(info_f);
 n:=0;
    while not eof(res_f) do begin
    info.rat:=0;
       for i:=1 to filesize(pynkt_f) do begin
        readln(res_f,votes);
        val(copy(votes,62,10),vote,err);
        q:=copy(votes,1,35);
        inc(n);
        s1[n]:=q;
      info.rat:=info.rat+vote;
      s[n]:=info.rat;
      end;
     writeln(s1[n],'|':10,s[n],'-',n);
   end;
    for i:=1 to n do begin
    amin:=s[i];
    bmin:=s1[i];
    l:=i;
    J:=i+1;
    while j<=n do begin
      if amin<s[j] then
        begin
          amin:=s[j];
          bmin:=s1[j];
          l:=j;
        end;
      j:=J+1;
    end;
    s[l]:=s[i];
    s1[l]:=s1[i];
    s[i]:=amin;
    s1[i]:=bmin;
    for i:=1 to n do writeln(s1[i],' | ',s[i]);
    end;
 close(res_f);
end;

Файл res_f не типизированный, а pynkt_f - типизированный.
Кол-во записей в res_f - 4, pynkt_f-2.
Вот какой я получаю результат:

  
                              дДем2 | 17
                               Дем1 | 13
                              дДем2 | 12
                               Дем1 | 8

А должен

дДем2 | 17
Дем1 | 13

Меня интересует откуда взялось:
дДем2 | 12
Дем1 | 8

[Min]

может отсюда?

    while not eof(res_f) do begin
    info.rat:=0;
       for i:=1 to filesize(pynkt_f) do begin
        readln(res_f,votes);
        val(copy(votes,62,10),vote,err);
        q:=copy(votes,1,35);
        inc(n);
        s1[n]:=q;
      info.rat:=info.rat+vote;
      s[n]:=info.rat;
      end;
     writeln(s1[n],'|':10,s[n],'-',n);
   end;

[Min]

хотя нет...... нам дефис ещё какой-то.....
предоставьте листинги файлов.