Возвести в квадрат все отрицательные элементы матрицы

program ABC;
const Nmass=10;
var A:array[1..Nmass,1..Nmass] of integer;
P,O,N:integer;
M,i,j,k,Imax,Jmax,Pmax: byte;
begin
cls;
//Ручной ввод массива
writeLn('Введте число элементов в массивеA');
readLn(N,M);
writeLn('вводим элементы массива A:');
for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;
//вывод массива до изменения
writeLn('Èñõîäíûé ìàññèâ A:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
// количество положительных и отрицательных элементов массива
Begin
P:= 0;
O:= 0;
for i:=1 to N do
for j:=1 to M do
if A[i,j]>0 then
P:=P+1
else
If A[i,j]<0 then
O:=O+1;
end;
writeln(количество положительных', P);
writeln('количество отрицательных ', O);
end;

program ABC;
 
const
  Nmass = 10;
 
var
  A: array[1..Nmass, 1..Nmass] of smallint;
  max: shortint;
  P: integer;
  i, j, ind_i_N, ind_j_N, ind_i_V, ind_j_V: byte;
 
procedure ln();
var
  i: byte;
begin
  for i := 1 to 60 do
    write('-');
  writeln;
  
end;
 
begin
  cls;
  ln();
  writeLn('Исходный массив:');
  ln();
  randomize;
  for i := 1 to Nmass do
  begin
    for j := 1 to Nmass do
    begin
      A[i, j] := random(254) - 128;
      write(A[i, j]:5);
      if A[i, j] > 0 then
        P := P + 1;
      if A[i, j] < 0 then
        P := P - 1;
    end;
    writeln;
  end;
  ln();
  P := Sign(P);
  case P of
    1: writeln('Положительных элементов больше');
    -1: writeln('Отрицательных элементов больше. A[i,j]=A[i,j]^2');
  else writeln( 'Положительных и отрицательных элементов поровну')
  end;
  while P = 1 do
  begin
    ind_i_V := 1;
    ind_j_V := 2;
    max := A[ind_i_V, ind_j_V];
    for i := 1 to Nmass - 1 do
      for j := i + 1 to Nmass do
        if A[i, j] > max then
        begin
          max := A[i, j];
          ind_i_V := i;
          ind_j_V := j;
        end;
    ind_i_N := 2;
    ind_j_N := 1;
    max := A[ind_i_N, ind_j_N];
    for i := 2 to Nmass do
      for j := 1 to i - 1  do
        if A[i, j] > max then
        begin
          max := A[i, j];
          ind_i_N := i;
          ind_j_N := j;
        end;
    writeln('Меняем местами элементы массива:');
    writeln('A[', ind_i_V, ',', ind_j_V, ']', ' = ', A[ind_i_V, ind_j_V]);
    writeln('A[', ind_i_N, ',', ind_j_N, ']', ' = ', A[ind_i_N, ind_j_N]);
    A[ind_i_N, ind_j_N] := A[ind_i_V, ind_j_V];
    A[ind_i_V, ind_j_V] := max;
    break;
  end;
  ln();
  writeLn('Итоговый массив:');
  ln();
  while P = -1 do
  begin
    for i := 1 to Nmass do
      for j := 1 to Nmass do
        if A[i, j] < 0 then
          A[i, j] := A[i, j] * A[i, j];
    break;
  end;
  for i := 1 to Nmass do
  begin
    for j := 1 to Nmass do
      if Sign(P) = -1 then
        write(A[i, j]:6)
      else
        write(A[i, j]:5);
    writeln;
  end;
end.