В файле g записать все числа кратные 3

program Project2;
 
uses
  CRT;
const
  filename1 = 'filef.dat';
  filename2 = 'fileg.dat';
  filename3 = 'fileh.dat';
 
type
  TfileInt = file of integer;
 
 
procedure InfoOutFile(var ff: TfileInt);
{Процедура для вывода информации из файла в консоль}
var
  a: integer;
begin
  reset(ff);
  while not eof(ff) do
    begin
      read(ff,a);
      Write(a,' ');
    end;
  Close(ff);
end;
 
 
var
  f,g,h: TfileInt;   { Файловые переменные}
  i: integer;        { Вспомогательная переменная для организации циклов}
  a: integer;        { Промежуточная переменная для переноса информации}
begin
  clrscr;
  assign(f,filename1);    {Связывание файловой переменной с именем файла}
  assign(g,filename2);
  assign(h,filename3);
  rewrite(f);               {Установка файла f в режим записи}
  for i:= 1 to random(20)+10 do
    begin
      a:= random(199)-99;        { Заполнение массива случайными числами}
      write(f,a);
    end;
  Close(f);                      {Закрытие файла}
  writeln('Исходный файл:');
  InfoOutFile(f);
  reset(f);           {Установка файла f в режим чтения}
  rewrite(h);         {Установка файла h в режим записи}
  rewrite(g);         {Установка файла g в режим записи}
  while not eof(f) do       { Цикл с предусловием: пока не достигнут конец файла ... }
    begin
      read(f,a);           { Чтение информации из файла f и присвоение значения промежуточной переменной}
      if a mod 3 = 0 then  { Условие для поиска элементов файла f кратных трем}
        write(g,a);         { Запись найденных элементов в файл g}
      if a mod 2 <> 0 then { Условие для поиска нечетных элементов файла f}
        write(h,a);          { Запись найденных элементов в файл h}
    end;
  close(f);                  {Закрытие файла}
  close(g);
  close(h);
  writeln;
  writeln('Файл чисел кратных трем:');
  InfoOutFile(g);                {Вывод информации из файла с помощью подпрограммы}
  writeln;
  writeln('Файл нечетных чисел:');
  InfoOutFile(h);                {Вывод информации из файла с помощью подпрограммы}
  readln;
end.