Помогите как написать эту программу с функцией и процедурой

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
n,i,j:byte;
k:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=1+random(20);
write(a[i,j]:4);
end;
writeln;
end;
writeln;
k:=n*n;
for i:=2 to n-1 do
for j:=1 to n div 2 do
if(j begin
a[i,j]:=0;
k:=k-1;
end;
writeln('Измененная матрица: ');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
write('Осталось не нулевых=',k);
readln
end.