Переписать четные числа во второй файл, подсчитать их количество - Pascal

Формулировка задачи:

помогите пожалуйста. создать файл целых чисел вводя данные с клавиатуры. переписать четные числа во второй файла, подсчитать их количество. определить размер файла. если он превышает заданное пользователем значение, то обрезать его

Решение задачи: «Переписать четные числа во второй файл, подсчитать их количество»

Листинг программы

uses crt;
var f,g:file of integer;
    i,n,a,l:integer;
begin
 assign(f,'f.txt');
  assign(g,'g.txt');
  rewrite(f);
   rewrite(g);
 write('Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«-Г±ГІГўГ® ГЄГ®Г¬ГЇГ®Г*ГҐГ*ГІГ®Гў ГґГ*Г©Г«Г* :');
  readln(n);
 writeln('Г‘Г®Г¤ГҐГ°Г¦Г*Г*ГЁГҐ ГґГ*Г©Г«Г* :');
 for i:=1 to n do
  begin
   a:=-10+random(20);
    write(f,a);
    write(a:4);
     if not(odd(a)) then
      write(g,a);
  end;
  reset(g);
 writeln;
  writeln('ГЌГ®ГўГ»Г© ГґГ*Г©Г«Г* Г± Г·ГҐГІГ*Г»Г¬ГЁ ГЅГ«ГҐГ¬ГҐГ*ГІГ*Г¬ГЁ :');
  i:=0;
   while not eof(g) do
    begin
     read(g,a);
      inc(i);
     write(a:4);
    end;
   writeln;
    writeln('ГЉГ®Г«Г±-ГўГІГ® Г·ГЁГ±ГҐГ« n=',i);
    write('ГЉГ*ГЄГ®ГҐ Г°Г*Г§Г¬ГҐГ° ГўГ» ГµГ®ГІГЁГІГҐ l=');
     readln(l);
    if filesize(g)>l then
     begin
      seek(g,l);
      truncate(g);
     end;
    writeln('ГЌГ®ГўГ»Г© ГґГ*Г©Г« Г± Г·ГҐГІГ*Г»Г¬ГЁ ГЅГ«ГҐГ¬ГҐГ*ГІГ*Г¬ГЁ Г± Г*Г®ГўГ»Г¬ Г°Г*Г§Г¬ГҐГ°Г®Г¬ :');
     reset(g);
    while not eof(g) do
     begin
      read(g,a);
      write(a:4);
     end;
 close(f);
  close(g);
end.

Объяснение кода листинга программы

Используется библиотека crt для работы с файлами.
Создаются два файла: f и g.
Задается имя файла f как 'f.txt' и имя файла g как 'g.txt'.
Режим записи в файлы устанавливается в режим перезаписи.
Выводится сообщение с номером четных чисел, которые будут записаны во второй файл.
Считывается число n.
Генерируется случайное число a в диапазоне от -10 до 19.
Записывается число a в файл f.
Если число a является четным, то оно записывается в файл g.
Считывается число l.
Проверяется, если размер файла g больше l, то происходит прокрутка файла g до l байт.
Код продолжает работу с файлом g до тех пор, пока не будет достигнут конец файла.
Выводится сообщение с номером четных чисел, которые были записаны во второй файл.