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.