Заменить все отрицательные элементы матрицы их квадратами, положительные - их кубами, нулевые элементы заменить на -1

program Zadanie78;
const
  nmax = 20;     // Максимальный размер матрицы.
var
  a: array[1..nmax,1..nmax] of real; // Переменная для хранения массива.
  i,j: integer;      //  Промежуточные переменные для организации циклов.
  n: integer;     // Переменная для хранения значения размерности матрицы.
begin
  randomize;
  writeln('Введите значение количества элементов матрицы N:');
  Readln(n);
  writeln('Исходная матрица:');
  for i:= 1 to n do      //  Перебор индексов строк и столбцов в цикле.
    begin
    for j:= 1 to n do
      begin
        a[i,j]:= (random(50 + 1) - 25)/10 ;  // Генерация случайных чисел и присвоение их элементам .
        write(a[i,j]:5:1);
      end;
    writeln;
    end;
  for i:= 1 to n do          // Перебор индексов строк и столбцов в цикле.
    for j:= 1 to 10 do
      begin
        if a[i,j] < 0 then       // Условие выбора элементов строк.
          a[i,j]:= a[i,j]*a[i,j]   // Замена отрицательного значения элемента его квадратом.
        else
          if a[i,j] > 0 then              // Условие выбора элементов строк.
            a[i,j]:= a[i,j]*a[i,j]*a[i,j]    // Замена  положительного значения элемента его кубом.
          else
            if a[i,j] = 0 then    // Условие выбора элементов строк.
              a[i,j]:= -1;          //  Замена нулевого значения элемента числом -1.
      end;
  writeln('Матрица после вычислений:');
  for i:= 1 to n do      //  Перебор индексов строк и столбцов в цикле.
    begin
    for j:= 1 to n do
      write(a[i,j]:8:3);    // Вывод значений элементов на экран.
    writeln;
    end;
 
  writeln;
  readln;
end.