Паскаль.Матрица

[valis]

Program Lab4;
Uses Crt;
Var
    a:Array [1..10,1..10] of Real;
    i,j:Integer;
    N:Integer;
    max,t:Real;
    Xmin:Integer;
    summa:Real;
Begin
    ClrScr;
    Repeat
        Write('Ââåäèòå ðàçìåðíîñòü ìàòðèöû (N>0)and(N<=10)');
        Readln(N);
    Until( (N>0)and(N<=10) );
    ClrScr;
    For i:= 1 to N Do Begin
        For j:= 1 to N Do Begin
        a[i,j]:=random(50);
            gotoxy(j*7,i*2);
            Write(a[i,j]);
        End;end;
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do begin
if max<a[i,j] then begin
max:=a[i,j];
end;end; writeln('  max: ',max);end.

Как видно из кода,программа находит максимальный элемент квадратной матрицы.Хотелось бы узнать как вывести на печать строку и столбец в которых находится этот максимальный элемент

[Alex Cones]

В цикле выводите по очереди все элементы строки и столбца. До этого запоминаете координаты макс элемента.
Как запоминать координаты написано у меня в статье: http://www.programmersforum.ru/showthread.php?t=70310
Пример в подпункте "Как поменять местами макс и мин" там описано, как брать координаты.

[valis]

Спасибо,помогло