Двумерный массив

[ji-had]

Ввести двумерный массив Anxm,вывести его. Возвести в квадрат все строки, расположенные между строкой,содержащей максимум матрицы,и строкой,содержащей минимум этой матрицы.

помогите пожалуйста!

Turbo pascal.

[Летучий_СкилетиК]

 
    min:=a[1,1];p1:=1;
    max:=a[1,1];p2:=1;
    for i:=1 to n do
    for j:=1 to n do
    begin
         if min > a[i,j] then begin p1:=i;min:=a[i,j];end;
         if max < a[i,j] then begin p2:=i;max:=a[i,j];end;
    end;
    if p1 > p2 then  begin t := p1; p1 := p2; p2 := t; end;
    for i:= p1 + 1 to p2 - 1 do
        for j:=1 to n do
        a[i,j]:=sqr(a[i,j]);

[ji-had]

Сообщение от Летучий_СкилетиК

 
    min:=a[1,1];p1:=1;
    max:=a[1,1];p2:=1;
    for i:=1 to n do
    for j:=1 to n do
    begin
         if min > a[i,j] then begin p1:=i;min:=a[i,j];end;
         if max < a[i,j] then begin p2:=i;max:=a[i,j];end;
    end;
    if p1 > p2 then  begin t := p1; p1 := p2; p2 := t; end;
    for i:= p1 + 1 to p2 - 1 do
        for j:=1 to n do
        a[i,j]:=sqr(a[i,j]);

спасибо!!