Оформить программу с использованием процедур

uses
  CRT;
const
  N_max = 20;
var
  A : array[1..N_max, 1..N_max] of integer;
  i, j, sum, n :integer;
begin
  ClrScr;
 
  sum := 0;
 
  WriteLn( 'Vvedite nechetnoe chislo' );
  ReadLn( n );
 
  for i := 1 to n do
    for j := 1 to n do
    begin
      WriteLn( 'A[', i, ',', j, ']= ' );
      ReadLn( A[i, j] );
    end;
 
  WriteLn( 'Isxodnaya matrica ->' );
 
  for i := 1 to n do
    begin
      for j := 1 to n do
        Write( A[i, j]:4 );
        WriteLn;
    end;
 
  for i := 1 to n do
    Begin
      for j := 1 to n do
        Begin
          if (( i <= j ) or ( i <= n - j + 1 )) and ( A[i, j] mod 2 = 0 ) then
          sum := sum + A[i, j];
        end;
      WriteLn;
    end;
 
  WriteLn( sum );
  ReadLn;
end.

uses   CRT;
const n_max=19;
type mtr=array[1..n_max, 1..n_max] of integer;
procedure matrix(var a:mtr;var n:integer);
var i,j:integer;
begin
repeat
writeln( 'Vvedite nechetnoe chislo ot 3 do 19 n=' );
readln( n );
until odd(n)and(n in [3..19]);
for i := 1 to n do
for j := 1 to n do
 begin
  write( 'A[', i, ',', j, ']= ' );
  readLn( A[i, j] );
 end;
end;
procedure print(a:mtr;n:integer);
var i,j:integer;
begin
WriteLn( 'Isxodnaya matrica ->' );
for i := 1 to n do
 begin
  for j := 1 to n do
  write( A[i, j]:4 );
  writeLn;
 end;
end;
function summa(a:mtr;n:integer):integer;
var i,j,sum:integer;
begin
sum := 0;
for i := 1 to n do
for j := 1 to n do
if (( i <= j ) or ( i <= n - j + 1 )) and (a[i, j] mod 2 = 0 ) then
sum := sum + a[i, j];
summa:=sum
end;
var a:mtr;
    i,j,n:integer;
begin
clrscr;
matrix(a,n);
print(a,n);
writeln('Summa chetnyh v zadannoj oblasti=',summa(a,n));
readln;
end.

uses   CRT;
const n_max=19;
type mtr=array[1..n_max, 1..n_max] of integer;
var a:mtr;
    n:integer;
procedure matrix;
var i,j:integer;
begin
repeat
writeln( 'Vvedite nechetnoe chislo ot 3 do 19 n=' );
readln( n );
until odd(n)and(n in [3..19]);
for i := 1 to n do
for j := 1 to n do
 begin
  write( 'A[', i, ',', j, ']= ' );
  readLn( A[i, j] );
 end;
end;
procedure print;
var i,j:integer;
begin
WriteLn( 'Isxodnaya matrica ->' );
for i := 1 to n do
 begin
  for j := 1 to n do
  write( A[i, j]:4 );
  writeLn;
 end;
end;
function summa:integer;
var i,j,sum:integer;
begin
sum := 0;
for i := 1 to n do
for j := 1 to n do
if (( i <= j ) or ( i <= n - j + 1 )) and (a[i, j] mod 2 = 0 ) then
sum := sum + a[i, j];
summa:=sum
end;
var i,j:integer;
begin
clrscr;
matrix;
print;
writeln('Summa chetnyh v zadannoj oblasti=',summa);
readln;
end.

if not((j>=n-i+1)and(j<=i)) and (a[i, j] mod 2 = 0 ) then