Как оформить через процедуры и функции ?

const
    N = 5;
var
    arr: array[1..N,1..N] of byte;
    i,j,a: byte;
begin
    randomize;
    for i:=1 to N do begin
        for j:=1 to N do begin
            arr[i,j] := random(100);
            write(arr[i,j]:4);
        end;
        writeln;
    end;
    writeln;
    for i:=1 to N do
        for j:=1 to N do
            if i = j then begin
                a := arr[i,j];
                arr[i,j] := arr[i,N-j+1];
                arr[i,N-j+1] := a;
            end;
 
   for i:=1 to N do begin
        for j:=1 to N do
            write(arr[i,j]:4);
        writeln;
    end;
end.

const n = 5;
type mtr=array[1..N,1..N] of byte;
procedure matrix(var a:mtr);
var i,j:byte;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(100);
end;
procedure print(a:mtr;s:string);
var i,j:byte;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end;
procedure obmen(var a:mtr);
var i,j,x:byte;
begin
for i:=1 to n do
for j:=1 to n do
if i=j then
 begin
  x:=a[i,j];
  a[i,j]:=a[i,n-j+1];
  a[i,n-j+1]:=x;
 end;
end;
var arr:mtr;
begin
randomize;
matrix(arr);
print(arr,'Исходная матрица');
obmen(arr);
print(arr,'Измененная матрица');
end.