Процедуры

[Solnze2]

Нужно переделать с процедурами ввода и вывода и с процедурой параметра.

program lab2_1;
uses Crt;
const
n_max=10;
var
 m,n,i,j,max,k:Integer;
 A:array [1..n_max,1..n_max] of Integer;
 B:array [1..n_max] of Integer;
begin
 Clrscr;
 TextColor(White);
 Write('Введите р змерность массив  N, M( <',N_max,')=');
 Readln(n, m);
 Writeln('Введите эл-ты м ссив ');
For i:=1 to n do
 For j:=1 to m do
 begin
  Write ('A[',i,',',j,']=');
  Readln(A[i,j]);
 end;
Writeln('Введенный м ссив A: ');
For i:=1 to n do
 begin
  For j:=1 to m do
   Write (A[i,j]:3);
  Writeln;
 end;

For j:=1 to m do
 begin
 max:=0;
  For i:=1 to n do
    if (A[i,j]>max)and(i mod 2=0) then
     max:=A[i,j];
  B[j]:=max;
 end;

Writeln('Полученый м ссив B: ');
For i:=1 to n do
 write (B[i]:3);
 readln;
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Stilet]

program lab2_1;
uses Crt;
const
n_max=10;
var
 m,n,i,j,max,k:Integer;
 A:array [1..n_max,1..n_max] of Integer;
 B:array [1..n_max] of Integer;

procedure vvoda;
var i,j:integer;
begin
 Write('Введите р змерность массив  N, M( <',N_max,')=');
 Readln(n, m);
 Writeln('Введите эл-ты м ссив ');
For i:=1 to n do
 For j:=1 to m do
 begin
  Write ('A[',i,',',j,']=');
  Readln(A[i,j]);
 end;
end;

procedure vivoda;
var i,j:integer;
begin
Writeln('Введенный м ссив A: ');
For i:=1 to n do
 begin
  For j:=1 to m do
   Write (A[i,j]:3);
  Writeln;
 end;

end;

begin
 Clrscr;
 TextColor(White); vvoda();
 vivoda();
For j:=1 to m do
 begin
 max:=0;
  For i:=1 to n do
    if (A[i,j]>max)and(i mod 2=0) then
     max:=A[i,j];
  B[j]:=max;
 end;

Writeln('Полученый м ссив B: ');
For i:=1 to n do
 write (B[i]:3);
 readln;
End.

Идея ясна?