Задача на работу с текстовым файлом Опции

[Доцент]

Добрый день. Очень прошу помочь с такой задачей: "Составить программу решения задачи. Каждый из N (N задано) опрошенных членов жюри спортивного состязания назвал 5 фамилий возможных претендентов на первое место. Определить фамилию спортсмена, который является, по мнению жюри, наиболее вероятным победителем. Получить список фамилий, если несколько спортсменов получат равное количество голосов. Предусмотреть, что опрашиваемый должен назвать 5 разных фамилий."
Сдать должен работу 17-го января.
Вот то, что есть на сегодняшний день:

program laba;
uses crt;
var
 ftxt:text;
 i,j,cod:integer;
 st:string;
 st1,st2,st3,st4,st5,st6:string;
 n:integer;
 found:boolean;

begin
 clrscr;
 assign(ftxt,'Sports.txt');
 {SI-} reset(ftxt);  {SI+}
 if IOResult<>0 then
  begin
   writeln('­Ґв д ©« ');
   halt
  end;

 close(ftxt);
 reset(ftxt);

 while not eof(ftxt) do
  begin
   readln(ftxt,st);
   st1:=copy(st,1,2); {номер жюри}
   st2:=copy(st,4,8);
   st3:=copy(st,13,8);
   st4:=copy(st,22,8);
   st5:=copy(st,31,8);
   st6:=copy(st,40,8);
   writeln(st1,' ',st2,' ',st3,' ',st4,' ',st5,' ',st6);
   end;
 close(ftxt);
end.

И сам текстовый файл...

Сообщение отредактировано: Доцент - 15.01.2008 17:51

[Michael_Rybak]

нужно условие (if mas[z].count=max then)
в последнем блоке {------} вынести перед (begin end) и всё.

Где ты видишь у него условие "(if mas[z].count=max then)"?

[Rian]

Где ты видишь у него условие "(if mas[z].count=max then)"?

Не у него, в той проге, что я ему последней выкладывал (#9)