Разбить программу на процедуры!

[g0hsty]

var a:array[1..100,1..100] of integer;
var i,j,n,m,t,min,f,f1,f2:integer;
 
begin
write('M='); read(m);
write('N='); read(n);
for i:=1 to m do
  for j:=1 to n do begin
  write('a[',i,',',j,']=');
  read(a[i,j]);
end;
writeln('Ishodnaya matrica');
for i:=1 to m do begin
  for j:=1 to n do 
  write(a[i,j],' ');
  writeln;
end; 
t:=0;
for j:=1 to n do
 begin
  f:=0;
  i:=2;
  while(i<m)and(f=0) do
  if((a[i,j]<a[i-1,j])and(a[i,j]<a[i+1,j]))
  or((a[i,j]>a[i-1,j])and(a[i,j]>a[i+1,j]))then f:=1
  else i:=i+1;
  if f=0 then
   begin
    t:=t+1;
    min:=a[1,j];
    for i:=2 to m do
    if a[i,j]<min then min:=a[i,j];
    writeln('V stolbce ',j,' min=',min);
   end;
  if t=1 then min1:=min
  else if min<min1 then min1:=min;
 end;
if t=0 then writeln('Net uporyadochennyh stolbcov')
else writeln('Iz nih min=',min1);
end.

Программа ищет минимальный элемент среди упорядоченных столбцов!
Нужно разбить программу на процедуры
1-Ввод данных
2-Обработка
3-Вывод результата на экран!

[Stilet]

Я так понимаю, сам ты не пытался это сделать?

[g0hsty]

Procedure Vvodklav(Var A:matr;Var n,m:integer);
var i,j:integer;
Begin
clrscr;
write('M='); read(m);
write('N='); read(n);
for i:=1 to m do
for j:=1 to n do begin
write('a[',i,',',j,']=');
read(a[i,j]);
end;
f1:=true;
readkey
end;
Procedure Obrabot(A:matr;n,m:integer;f1,f2:bo olean);
var i,j,t,min,min1,f:integer;
begin
textbackground(0);
textcolor(15);
clrscr;
if f1=false then
begin
writeln('Dannie ne vvedeni');
readkey;
exit;
end;
writeln('Ishodnaya matrica');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
writeln('Obrabotka zaversena');
end;
t:=0;
for j:=1 to n do
begin
f:=0;
i:=2;
while(i<m)and(f=0) do
if((a[i,j]<a[i-1,j])and(a[i,j]<a[i+1,j]))
or((a[i,j]>a[i-1,j])and(a[i,j]>a[i+1,j]))then f:=1
else i:=i+1;
if f=0 then
begin
t:=t+1;
min:=a[1,j];
for i:=2 to m do
if a[i,j]<min then min:=a[i,j];
writeln('V stolbce ',j,' min=',min);
end;
if t=1 then min1:=min
else if min<min1 then min1:=min;
end;
if t=0 then writeln('Net uporyadochennyh stolbcov')
else writeln('Iz nih min=',min1);
t:=t+1;
min:=a[1,j];
for i:=2 to m do
if a[i,j]<min then min:=a[i,j];
if t=1 then min1:=min
else if min<min1 then min1:=min;
f2:=true;
readln;
end;
Procedure Vivode(A:matr;n,m:integer;f1,f2:boo lean);
var i,j,t,min,min1,f:integer;
begin
textbackground(0);
textcolor(15);
clrscr;
if f1=false then
begin
writeln('Dannie ne vvedeni');
readkey;
exit;
end;
writeln('Ishodnaya matrica');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
for i:=2 to m do
if a[i,j]<min then min:=a[i,j];
writeln('V stolbce ',j,' min=',min);
end;
if t=1 then min1:=min
else if min<min1 then min1:=min;
end;
if t=0 then writeln('Net uporyadochennyh stolbcov')
else writeln('Iz nih min=',min1);

f2:=true;
readln;
end;

Пытался! Но вывод не корректно выводит результат!