Переделать код (с использованием функций)

Program EMatrix;
var a:array [1..50, 1..50] of integer; n, i, j:integer;
 
begin
 writeln('Введите натуральное число n такое, что 0<n<=50');
 repeat
  readln(n);
  if (n<=0) or (n>50) then
   writeln('Введенно неверное число, попробуйте еще раз');
 until (n>0) and (n<=50);
 for i:=1 to n do
  for j:=1 to n do
   if i=j then
    a[i,j]:=1
   else
    a[i,j]:=0;
 writeln('Чтобы вывести решение, нажмите Enter');
 readln;
 writeln('Решением будет:');
 writeln;
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(' ', a[i,j]);
     writeln;
   end;
end.

Program EMatrix;
uses crt;
type mtr=array [1..50, 1..50] of integer;
procedure vvod_razm(var n:integer);
begin
writeln('Введите натуральное число n такое, что 0<n<=50');
repeat
 readln(n);
if (n<=0) or (n>50) then
writeln('Введенно неверное число, попробуйте еще раз');
until (n>0) and (n<=50);
end;
procedure matrix(var a:mtr;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
if i=j then a[i,j]:=1
else a[i,j]:=0;
writeln('Чтобы вывести решение, нажмите Enter');
readln;
end;
procedure print(a:mtr;n:integer);
var i,j:integer;
begin
writeln('Решением будет:');
writeln;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(' ', a[i,j]);
  writeln;
 end;
end;
var a:mtr;
    n:integer;
begin
vvod_razm(n);
matrix(a,n);
print(a,n)
end.