Нахождение MAX матрицы, (разделено) Опции

[-=NEXT=-]

Помогите пожалуйста решить задачку, а то не очень шарю в Паскале.
Задача: необходимо с помощью функции найти max элемент в каждом столбце массива и среди них найти min.
Заранее премного благодарен!

[-=NEXT=-]

Я сделал программу, она работает, только нахождение max и min элемента не через функцию. Вот текст проги:

Program z4;
const N=6; M=6;
var
A:array [1..N,1..M] of integer;
i,j,max1,max2,max3,max4,max5,max6,min:integer;
F:text;
begin
assign(F,'z4.txt');
rewrite(F);
randomize;
for i:=1 to N do begin
for j:=1 to M do begin
A[i,j]:=random (51)-10;
write(A[i,j],' ');
write(F,A[i,j],' ');
end;
writeln;
writeln(F);
end;
begin
max1:=A[1,1];
j:=1;
for i:=1 to N do begin
if A[i,j]>max1 then begin
max1:=A[i,j];
end; end;
max2:=A[1,2];
j:=2;
for i:=1 to N do begin
if A[i,j]>max2 then begin
max2:=A[i,j];
end; end;
max3:=A[1,3];
j:=3;
for i:=1 to N do begin
if A[i,j]>max3 then begin
max3:=A[i,j];
end; end;
max4:=A[1,4];
j:=4;
for i:=1 to N do begin
if A[i,j]>max4 then begin
max4:=A[i,j];
end; end;
max5:=A[1,5];
j:=5;
for i:=1 to N do begin
if A[i,j]>max5 then begin
max5:=A[i,j];
end; end;
max6:=A[1,6];
j:=6;
for i:=1 to N do begin
if A[i,j]>max6 then begin
max6:=A[i,j];
end; end;
writeln('max1= ',max1);
writeln(F,'max1= ',max1);
writeln('max2= ',max2);
writeln(F,'max2= ',max2);
writeln('max3= ',max3);
writeln(F,'max3= ',max3);
writeln('max4= ',max4);
writeln(F,'max4= ',max4);
writeln('max5= ',max5);
writeln(F,'max5= ',max5);
writeln('max6= ',max6);
writeln(F,'max6= ',max6);
min:=max1;
if max2<min then min:=max2;
if max3<min then min:=max3;
if max4<min then min:=max4;
if max5<min then min:=max5;
if max6<min then min:=max6;
writeln('min= ',min);
writeln(F,'min= ',min);
end;
close(F);
readln;
end.

!

Теги !