Помогите найти ошибку Опции

[Chimera-Syber]

Задача такова: дан набор строк (вводятся с клавиатуры). Строка формируется следующим образом: фамилия спортсмена (10 символов) и 6 результатов (каждый результат по 3 символа). Составить программу, определяющую спортсмена, занявшего первое место в соревнованиях.

У меня находит результат самый высокий, но почему-то фамилию не выводит. Помогите найти ошибку:

Код

Program exe2;
var str,res,fam,famfin:string; j,n,max,maxfin,i,zif,code:integer;
begin
{вводим количество строк}
writeln ('vvedite kol-vo strok');
readln (n);
{обнуляем нужные переменные}
i:=1; fam:=''; max:=0; maxfin:=0; famfin:='';
for j:= 1 to n do begin
   {вводим строку}
   writeln ('vvedite stroky');
   readln (str);
   repeat
     fam:=fam+str[i];
     i:=i+1;
   until str[i]<>' ';
   str:=str+' '; i:=i+1; res:='';
   while i<=length(str) do begin
        if str[i]<>' ' then
                       res:=res+str[i]
        else
            begin
            {преобразуем переменную в число}
            val(res,zif,code);
            {сравниваем с текущим максимом в строке}
            if zif>max then max:=zif;
            res:='';
            end;
        i:=i+1;
    end;
    {сравниваем с максимумом во всем тексте}
    if max>maxfin then
          begin
          maxfin:=max; famfin:=copy(fam,1,length(fam));
          end;
    fam:='';
    max:=0;
    i:=1;
    end;
{выводим результат}
writeln ('first place', famfin);
writeln ('rezyltat', maxfin);
end.

Сообщение отредактировано: Chimera-Syber - 21.05.2009 11:10