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

[Доцент]

Добрый день. Очень прошу помочь с такой задачей: "Составить программу решения задачи. Каждый из 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

[Yevgeny]

trec=record count:byte;ima:string[9]end;
count и ima - поля данных записи Trec,
break означает - выход из цикла!!! Дальше не смотрел!
А вообще тебе не помешало бы хоть что-нить по паскалю почитать,
хотя бы про записи (типы данных) и основные операторы, а то завалиться можешь...


Добавлено через 3 мин.
sta:array[1..6]of string[9]; - вот тебе, что такое sta
im - константа, заданы в разделе констант, а z - обычный счётчик для фора!!!