Заполнить файл последовательного доступа f целыми числами полученные с помощью генератора случайных чисел.Получить в файле g те компоненты файла F которые являются четными — Pascal(Паскаль)

var
f,f1:text;
i,n,k:integer;
ch:string[6];
begin
  assign(f,'C:\input.txt');
  rewrite(f);
  writeln('Введите кол-во компонент');
  readln(n);
    for i:=1 to n do
      begin
       k:=random(255);
       writeln(f,k);
      end;
   close(f);
   reset(f);
   writeln('содержимое файла f');
      while not EOF(f) do
        begin
         readln(f,k);
         write(k:4);
        end;
   writeln;
   assign(f1,'c:\rez.txt');
   rewrite(f1);
   reset(f);
     while not EOF(f) do
      begin
        readln(f,k);
          if (k mod 2=0) then
            writeln(f1,k);
      end;
    close(f1);
    close(f);
    reset(f1);
    writeln('содержимое файла f1');
      while not EOF(f1) do
        begin
         readln(f1,k);
         write(k:5);
        end;
   close(f1);
end.