Переделать программу в модульное программирование + блок схема.

ее переписать , чтобы была с использованием модульного программирования

Program matrix_; { имя модуля }
uses crt;
const n=5;
type Tmatr=array[1..n,1..n] of real;

{Процедура ввода элементов матрицы}
procedure Vvod(var mt:Tmatr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=8*random-4;
end;

{Процедура вывода элементов матрицы}
procedure Vyvod(var mt:Tmatr;c:char);
var i,j:byte;
begin
writeln(Матрица ,c,:);
for i:=1 to n do
begin
for j:=1 to n do
write(mt[i,j]:5:1);
writeln;
end;
end;

{Функция подсчета произведения элементов строк матрицы}
function MaxPrz(mt:Tmatr):real;
var i,j:byte;
p,mx:real;
begin
mx:=0;
for i:=1 to n do
begin
p:=1;
for j:=1 to n do
p:=p*mt[i,j];
if abs(p)>mx then mx:=p;
end;
MaxPrz:=mx;
end;

{Основная программа}
var a,b,c:Tmatr;
max:real;
ch:char;
begin
clrscr;
randomize;
Vvod(a);
Vyvod(a,A);
writeln(Максимальный модуль произведения в строке=,MaxPrz(a):0:2);
Vvod(b);
Vyvod(b,B);
writeln(Максимальный модуль произведения в строке=,MaxPrz(b):0:2);
Vvod(c);
Vyvod(c,C);
writeln(Максимальный модуль произведения в строке=,MaxPrz(c):0:2);
write(Press Enter...);
readln;
max:=MaxPrz(a);
ch:=A;
if MaxPrz(b)>max then
begin
max:=MaxPrz(b);
ch:=B;
end;
if MaxPrz(c)>max then
begin
max:=MaxPrz(c);
ch:=C;
end;
write(Максимальный модуль произведения в строке имеет );
case ch of
A:Vyvod(a,ch);
B:Vyvod(b,ch);
C:Vyvod(c,ch);
end;
readln;
end.