Задача на файлы. Опции

[brut03]

Помогите разобраться с задачей на файлы.
В файле хранятся фамилии, название клубов, за которые играют хоккеисты, количество сыгранных игр и заброшенных шайб. Перепишите в разные файлы данные об игроках «Спартака» и «Динамо».
И подскажите пожалуйста какую ни будь книгу по паскалю, где подробно разбирается этот вопрос
Заранее благодарен..

[volvo]

brut03

Вместо этого:

Код

 while not eof(f) do
  begin
    read(f, rec);
    if rec.club = 'spartak' then
      write(fS, rec)
    else
      write(fD, rec);
  end;

поставь вот это:

Код

 while not eof(f) do
  begin
    read(f, rec);
    if rec.club = 'spartak' then write(fS, rec);
    if rec.club = 'dinamo' then write(fD, rec);
    { и так далее... }

    { Но не забудь объявить достаточно файлов и их имен !!! }
  end;