Дана матрица А, найти количество четных чисел в матрице . Исходную матрицу вывести на экран и в текстовый файл

var
  f:textfile;
  a:array[1..3,1..3] of byte;
  i,j,k:byte;
begin
  assignfile(f,'d:\f.txt');
  rewrite(f);
  writeln('vvedite matrix A');
  for i:=1 to 3 do
    for j:=1 to 3 do
      read(a[i,j]);
    write (a[i,j]);
    write (f,a[i,j]);
  for i:=1 to 3 do begin
  for j:=1 to 3 do
   begin
    if a[i,j] mod 2=0 then
     begin
      k:=k+1;
    end;
    end;
    writeln;
    writeln(f,k);
    readln;
    end;
     write(a[i,j],'  ');
      write(f, a[i,j],'  ');
    writeln('Количество четных=',k);
    writeln(f,k);
    closefile(f);
end.

const
  n = 3;
 
var
  f: textfile;
  a: array[1..n, 1..n] of integer;
  i, j, k: integer;
 
begin
  k := 0;
  assignfile(f, 'f.txt');
  rewrite(f);
  writeln('vvedite matrix A');
  for i := 1 to n do
    for j := 1 to n do
      read(a[i, j]);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(a[i, j]:4);      
      write(f, a[i, j]);
      if a[i, j] mod 2 = 0 then
        k := k + 1;
    end;
    writeln;
  end;
  writeln('Количество четных = ', k);
  closefile(f);
end.