Двумерная матрица. Решение через процедуру и функцию.

[poseidonLOST]

Написать программу, переставляющую местами элементы главной диагонали двумерной матрицы с максимальным элементом соответствующей строки.
Использовать Процедуры:
— Ввода
— Вывода
Использовать функцию определения позиции максимального в строке.

program zada4a2;
uses crt;
type
mas2 = array[1..100,1..100] of integer;
var
st,sb,n:integer;
tt:mas2;
procedure vvod2(str,stb:integer;var a:mas2);
var i,j:integer;
begin
for i:=1 to str do
for j:=1 to stb do
begin
writeln('vvedite dvumernyj masssiv');
readln(a[i,j]);
end;
end;
procedure vyvod2(str,stb:integer; var a:mas2);
var i,j:integer;
begin
for i:=1 to str do begin
for j:=1 to stb do
write(a[i,j]:4);
writeln;
end;
end;

begin {Ќ*з*«® Ћб*®ў*®© Їа®Ја*¬¬л}
clrscr;
writeln('vvedite koli4estvo strok v dvumernom massive');
readln(st);
writeln('vvedite koli4estvo stolbcov v dvumernom massive');
readln(sb);
vvod2(st,sb,tt) ;
vyvod2(st,sb,tt) ;
readln;
end.


Это ввод и вывод через функции, что мог, то сделал. Вроде правильно. Что после - не знаю)

Заранее Спасибо

[Hacker19_90]

ну вот допустим это функция определения максимального в строке

function GetMaxStr(A:mas2; n: integer; num: integer): integer;
var
    i: integer;
    max: integer;
    pos: integer;
begin
    max := A[num, 1];
    pos := 1;
    for i := 2 to n do
        if A[num, i] > max then
        begin
            max := A[num, i]
            pos := i;
        end;
    GetMaxStr := pos;
end;

Ну а потом обмен можно производить таким образом

    for i := 1 to n
        for j := 1 to m do
        begin
            if i = j then
            begin
                position := GetMaxStr(Massiv, m, i);
                temp := Massiv[i,j];
                Massiv[i, j] := Massiv[i, position];
                Massiv[i, position] := temp;
            end; 
        end;