Необходимо переделать прогу что б в ней присутствовали процедуры

program MacLoren;
uses crt;
const nmax=20; mmax=10;
var i,j,n,m:integer;
a:array [1..nmax,1..mmax] of real;
x:array [1..nmax] of real;
begin
textcolor(white);
writeln('vvedite n<21 i m<11');
readln(n,m);
for i:=1 to n do
begin
writeln('vvedite x[',i,']');
readln(x[i]);
a[i,1]:=x[i];
end;
for i:=1 to n do
for j:=2 to m do
a[i,j]:=-a[i,j-1]*sqr(x[i])/((2*j-2)*(2*j-1));
for i:=1 to n do
for j:=1 to m do
writeln('a[',i,',',j,']=',a[i,j]:2:7);
readkey;
end.

program MacLoren;
uses crt;
const nmax=20; mmax=10;
type mas=array [1..nmax,1..mmax] of real;
     vec=array [1..nmax] of real;
 
procedure InputVector (var a:mas; var x:vec; n:integer);
var i:integer;
begin
writeln ('Input elements of vector "x"');
for i:=1 to n do
        begin
            write ('x[',i,']= ');
                readln (x[i]);
                a[i,1]:=x[i];
        end;
end;
 
procedure MCLoren (var a:mas; var x:vec; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
    for j:=2 to m do
        a[i,j]:=-a[i,j-1]*sqr(x[i])/((2*j-2)*(2*j-1));
end;
 
procedure OutputArr (var a:mas; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
    for j:=1 to m do
        writeln ('a[',i,',',j,']=',a[i,j]:2:7);
end;
 
var TArr:mas;
    TVec:vec;
    n,m:integer;
 
begin
writeln ('Type n<21 and m<11');
readln (n,m);
InputVector (TArr,TVec,n);
MCLoren (TArr,TVec,n,m);
OutputArr (TArr,n,m);
end.