Открыть для записи текстовый файл data.txt и записать в него полученный массив, закрыть файл

uses crt;
const z=8;x=12;
type mz=array[1..z,1..x] of integer;
var a:mz;
    f:text;
 
procedure Input(var a:mz;n,m:integer);
var i,j:integer;
 begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(48)-23;
 end;
 
procedure Output(var a:mz;n,m:integer);
var i,j:integer;
 begin
  for i:=1 to n do
   begin
    for j:=1 to m do write(a[i,j]:4,' ');writeln;
   end;
 end;
 
procedure Rec(a:mz;var t:text);
 begin
  assign(t,'c:\data.txt');
  rewrite(t);
  write(t,a);
  close(t);
 end;
 
begin
clrscr;
Input(a,z,x);
writeln(' Ввод случайной матрицы :');
writeln;
Output(a,z,x);
writeln;
writeln;
Rec(a,f);
writeln(' Массив записан в файл (c:\data.txt)');
readln;
end.

uses crt;
const z=3;x=4;
type mz=array[1..z,1..x] of integer;
var a:mz;
    t:text;
 
procedure Input(var a:mz;n,m:integer);
var i,j:integer;
 begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(48)-23;
 end;
 
procedure Output(var a:mz;n,m:integer);
var i,j:integer;
 begin
  for i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:5);
    writeln;
   end;
 end;
 
procedure Rec(var a:mz; n,m:integer);
var i,j:integer;
begin
  assign(t,'c:\data.txt');
  rewrite(t);
  writeln(t,n);
  writeln(t,m);
  for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    write(t,a[i,j]:4);
   end;
  writeln;
 end;
  close(t);
 end;
 
procedure chten(var a:mz; n,m:integer);
var i,j:integer;
begin
  assign(t,'c:\data.txt');
  reset(t);
  readln(t,n);
  readln(t,m);
  for i:=1 to n do
  begin
  for j:=1 to m do
   begin
    read(t,a[i,j]);
    write(a[i,j]:5);
   end;
  writeln;
 end;
  close(t);
 end;
 
 
begin
clrscr;
Input(a,z,x);
writeln(' Ââîä ñëó÷àéíîé ìàòðèöû :');
writeln;
Output(a,z,x);
writeln;
Rec(a,z,x);
writeln(' Ìàññèâ çàïèñàí â ôàéë (c:\data.txt)');
writeln;
chten(a,z,x);
writeln;
readln;
end.