Оформление процедуры в паскале

Const nmax=20;
Var A:array[1..nmax,1..nmax] of integer;
i,j,n:byte;
Procedure P1; //Тут создаём рандомайз матрицу
Begin
writeln('Исходная матрица:');
For i:=1 to n do
Begin
For j:=1 to n do
Begin
A[i,j]:=random(10);
write(A[i,j]:4);
End; End; End;
Procedure P2; //Ищем числа из нужного диопазона
Begin
writeln('Числа больше пяти и меньше пятнадцати:');
for i:=1 to n do
for j:=1 to n do
if(a[i,j]>1)and(a[i,j]<5) then
write (a[i,j],', ');
writeln;
End;
Procedure P3; //Транспонируем
Begin
writeln('Транспонированная матрица:');
For i:=1 to n do
Begin
For j:=1 to n do
write(A[j,i]:4);
writeln;
end;
Begin
write('Введите требуемое количество столбцов и строк в матрице (1<=n<',nmax,'): ');readln(n);
writeln;
P1; //Тут жахаем первую процедуру
writeln;
p2; //Тут вторую
writeln;
writeln;
p3; //Ну и третью естественно
End
End.

const nmax=20;
type Tmatr=array[1..nmax,1..nmax] of integer;
procedure vvod(var a:TMatr;var n:integer);
var i,j:integer;
begin
repeat
write('Введите размер матрицы от 2 до 20 n=');
readln(n);
until n in [2..20];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20);
end;
procedure print(a:TMatr;n:integer;s:string);
var i,j:integer;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end;
procedure chisla(a:TMatr;n:integer);
var i,j,k:integer;
begin
k:=0;
writeln('Числа от 5 до 15 которые есть в матрице');
for i:=1 to n do
for j:=1 to n do
if a[i,j] in [5..15] then
 begin
  inc(k);
  write(a[i,j]:3);
 end;
writeln;
writeln('Их количество=',k);
end;
procedure trans(var a:TMatr;n:integer);
var i,j,x:integer;
begin
for i:=2 to n do
for j:=1 to i-1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[j,i];
  a[j,i]:=x;
 end;
end;
var a:TMatr;
    n:integer;
begin
vvod(a,n);
print(a,n,'Исходная матрица');
chisla(a,n);
trans(a,n);
print(a,n,'Транспонированная матрица');
end.