Не выводит кириллицу в текстовый файл .txt

Пишу на delphi 10.3, не знаю, почему выводит непонятные символы, вместо букв на кириллице. Помогите пожалуйста. Сам код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, windows;

var
 a:array [1..3,1..3] of ANSIchar;
 i, j:integer;
 f1, f2: textfile;


begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);
  assignfile(f1, paramstr(1));
  assignfile(f2, paramstr(2));
  reset(f1);
  rewrite(f2);
  for i := 1 to 3 do
    begin
      for j := 1 to 3 do
        read(f1, a[i,j]);
      readln(f1);
    end;
  for i := 1 to 3 do
    begin
      for j := 1 to 3 do
        write(f2, a[i,j],' ');
      writeln(f2);
    end;
  closefile(f1);
  closefile(f2);
end.