К данной матрице А порядка n добавьте нулевую и n + 1-ю строки с элементами, равными 1. Основные функции программы оформите в виде процедур и функций. Исходные данные вводите из текстового файла. Результаты работы программы также поместите в текстовый файл и выведите на экран — Pascal(Паскаль)

program abc;
uses crt;
type matr=array[1..10,1..10] of integer;
procedure ReadFile(var f:text;var n:byte;var a:matr);
var i,j:byte;
begin
assign(f,'vvod.txt');
reset(f);
read(f,n);
writeln('Ishodnaya matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);
    write(a[i,j]:4);
   end;
  writeln;
 end;
close(f);
end;
Procedure AddStr(var a:matr;n:byte;var f:text);
var m,i,j:byte;
begin
m:=n+2;
for j:=1 to n do
a[m,j]:=1;
for i:=m-1 downto 2 do
for j:=1 to n do
a[i,j]:=a[i-1,j];
for j:=1 to n do
a[1,j]:=1;
assign(f,'vivod.txt');
rewrite(f);
writeln('Dobavlenie strok:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    write(f,' ',a[i,j]);
    write(a[i,j]:4);
   end;
  writeln(f);
  writeln;
 end;
close(f);
readln
end;
 
var a:matr;
    n:byte;
    vvod,vivod:text;
begin
clrscr;
ReadFile(vvod,n,a);
AddStr(a,n,vivod);
end.