Сформировать двумерный массив А размером 2х3, с помощью генератора случайных чисел и вывести элементы массива на экран и в файл — Pascal(Паскаль)

Program fd;

var
  A: array [1 .. 2, 1 .. 3] of integer;
  f: array [1 .. 2] of integer;
  fail: text;
  i, j, n: integer;

function MAX(i: integer): integer;
var
  m: integer;
begin
  m := A[i, 1];
  for j := 2 to 3 do
    if A[i, j] > m then
      m := A[i, j];
  MAX := m;
end;

begin
  for i := 1 to 2 do
    for j := 1 to 3 do
      A[i, j] := random(9);
  f[1] := MAX(1);
  f[2] := MAX(2);

  write('A:');
  for i := 1 to 2 do
  begin
    writeln;
    for j := 1 to 3 do
      write(A[i, j]:3);
  END;
  writeln;
  writeln('F:', MAX(1), ', ', MAX(2));
  { **************************V FAIL******************* }
  assign(fail, 'dannie.txt');
  rewrite(fail);
  write(fail, 'A:');
  for i := 1 to 2 do
  begin
    writeln(fail);
    for j := 1 to 3 do
      write(fail, A[i, j], ' ');
  END;
  writeln(fail);
  writeln(fail);
  writeln(fail, 'F:', MAX(1), ', ', MAX(2));
  close(fail);
  writeln('Dannie zapisani v fail "dannie.txt"...');
  readln;

end.