запись в новый файл, запись в новый файл Опции

[ice_b]

есть текстовый файл 'ice1' . в нем содержатся данные - имя , возраст. как записать в НОВЫЙ ('ice2') файл некоторые данные..?например записать все имена с возрастом меншье 30лет в новый файл

Сообщение отредактировано: ice_b - 20.02.2005 1:04

[Slavok]

Код программы:

Код

var
 F1, F2 : Text;
 S, C, Name : String;
 I : Byte;
 Code, X : Integer;
begin
 Assign(F1, 'Ice1.txt'); Reset(F1);
 Assign(F2, 'Ice2.txt'); Rewrite(F2);

 while Not Eof(F1) do
   begin
      { Читаем строку из входного файла }
      { Выделяем возраст }

      if { возраст <= 30 }
        then { записываем данные об этом человеке в выходной файл }
   end;
 Close(F1);
 Close(F2)
end.

Отредактировано модератором