Создайте пожалуйста модуль

Program pr1;
Uses Crt;
Const m=4;n=3;
Var
a : Array[1..m,1..n] of Integer;
b: Array [1..n] of Integer;
i,j,max,min : Integer;
Begin
clrscr;
Writeln ('‚ўҐ¤ЁвҐ н«Ґ¬Ґ*вл ¬*ваЁжл A[m,n]');
For i:=1 to m do
        For j:=1 to n do
                begin
                Write('a[',i,',',j,']=');
                Readln(a[i,j]);
                end;
begin
max:= a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]>max then
max:=a[i,j];
end; writeln;
        writeln('Max:=',max);
       for j:=1 to n do
        begin
                min:=a[1,j];
                for i:=1 to m do
                begin
                        if a[i,j]<min then min:=a[i,j];
                end;
                b[j]:=max-min;
        end;
        writeln;
        for j:=1 to n do
        begin
                write(b[j]:3);
        end;
  readln;
end.