В матрице А [6×6] найти минимальный и максимальный элементы ,вычислить P= A min(min в степени 4) + A max(max в степени 2)-Pascal(Паскаль)

program PascalGuru;

var
  A, B: array [1 .. 6, 1 .. 6] of real;
  i, j: integer;
  min, max, P: real;

begin

  for i := 1 to 6 do
    for j := 1 to 6 do
    begin
      write('N[', i, ',', j, ']=');
      readln(A[i, j]);
    end;

  write('Vot vvedennaya vami matrica A:');
  for i := 1 to 6 do
  begin
    writeln;
    for j := 1 to 6 do
      write(A[i, j]:8:2, ' ');
  end;

  min := A[1, 1];
  max := A[1, 1];
  for i := 1 to 6 do
    for j := 1 to 6 do
    BEGIN
      if A[i, j] > max then
        max := A[i, j]; { находим максимум }
      if A[i, j] then
        min := A[i, j]; { находим минимум }
    end;

  P := (min * min * min * min) + (max * max);

  for i := 1 to 6 do
    for j := 1 to 6 do
      if i = 2 then
        B[i, j] := A[i, j]
      else
        B[i, j] := A[i, j] + P + 0.74;

  writeln;
  writeln;
  write('Vot novaya matrica:');
  for i := 1 to 6 do
  begin
    writeln;
    for j := 1 to 6 do
      write(B[i, j]:8:2, ' ');
  end;

  readln;

end.