написать программу на языке Паскаль, которая осуществляет обработку двумерного массива

uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of real;
    n,m,i,j:integer;
    f:text;
begin
clrscr;
assign(f,'matr.txt');
rewrite(f);
repeat
write('Vvedite kolichestvo strok n=');
readln(n);
if (n<=0) or (n>10) then writeln('Nevernoe znachenie. Povtorite vvod!');
until (n>0) and (n<=10);
repeat
write('Vvedite kolichestvo stolbcov m=');
readln(m);
if (m<=0) or (m>10) then writeln('Nevernoe znachenie. Povtorite vvod!');
until (m>0) and (m<=10);
writeln('Vvedite ',n*m,' elementov massiva:');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
readln;
clrscr;
writeln('Matrica:');
writeln(f,'Matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
       begin
         write(a[i,j]:6:2);
         write(f,a[i,j]:6:2);
       end;
    writeln;
    writeln(f,'');
  end;
close(f);
readln
end.

program thread18721;
uses Crt;
type
    TMass = array [1..10, 1..10] of real; { объявляем массив }
 
{ процедура открытия файла и считывания }
procedure OpenFileForRead(var Mass: TMass; m,n: integer);
var
    i,j: integer;
    f: text;
    fname: string[20];
begin    fname:='afile.txt';
    assign(f,fname);
 
    {$I-}
    reset(f);
    {$I+}
 
    if IOResult<>0 then begin
        writeln('Error access to the file: the file "', fname, '" not found');
        write('For ending press <Enter>');
        readln;
        halt(1);
    end;
    writeln('File "',fname,'" has opened');
    writeln;
 
    for i:=1 to m do
        begin
            for j:=1 to n do
                begin
                    Read(f,Mass[i,j]);
                end;
            readln(f);
        end;
 
    close(f);
end;
 
 
{ процедура ввода массива }
procedure InputArray(var Mass: TMass; m,n: integer);
var
    i,j: integer;
begin
    writeln('Please, input elements of array in line through the space,');
    writeln('after each line press <Enter>:');
    writeln;
    for i:=1 to m do
        begin
            for j:=1 to n-1 do
                begin
                    Read(Mass[i,j]);
                end;
            readln(Mass[i,n]);
        end;
    writeln;
end;
 
{ процедура записи массива в файл }
procedure RecordArrayToFile(var Mass: TMass; m,n: integer);
var
    i,j: integer;
    f: text;
    fname: string[20];
begin
    fname:='afile.txt';
    assign(f,fname);
 
    {$I-}
    rewrite(f);
    {$I+}
 
    for i:=1 to m do
        begin
            for j:=1 to n-1 do
                begin
                    write(f,Mass[i,j]:8:2);
                end;
            writeln(f,Mass[i,n]:8:2);
        end;
    writeln('Data have recorded into file');
    writeln;
 
    close(f);
end;
 
 
VAR
    choice: integer;
    m,n: integer;
mass: TMass;
    i,j: integer;
 
LABEL
lb1,lb2;
 
{ ОСНОВНАЯ ПРОГРАММА }
BEGIN
    ClrScr;
    GoToXY(4,1);
    writeln('Input dimension of array:');
    writeln;
 
    lb1:
    write(' - amount of line (neither more than 10): ');
    readln(m);
    writeln;
 
    if m>10 then
        begin
            Writeln('Error, incorrect amount of line.');
            writeln('Try again.');
            writeln;
            GOTO lb1;
        end;
 
    lb2:
    write(' - amount of column (neither more than 10): ');
    readln(n);
    writeln;
 
    if n>10 then
        begin
            Write('Error, incorrect amount of column. ');
            writeln('Try again.');
            writeln;
            GOTO lb2;
        end;
 
    write('If you would like take array from file press "0", if input youself - "1": ');
    readln(choice);
    writeln;
 
    Case choice of
        0: OpenFileForRead(mass,m,n); { открытие и считывание массива из файла }
        1: InputArray(mass,m,n);
    end;
 
{ вывод полученного массива на экран }
    for i:=1 to m do
        begin
            for j:=1 to n-1 do
                begin
                    write(Mass[i,j]:8:2);
                end;
            writeln(Mass[i,n]:8:2);
        end;
    writeln;
 
{ запись массива в файл }
    RecordArrayToFile(mass,m,n);
 
    writeln('For ending press <ENTER>:');
    readln;    
END.