Дана матрица L (4,4). Заменить элементы главной диагонали единицами, элементы, расположенные под главной диагональю увеличить вдвое. Найти и напечатать сумму элементов преобразованной матрицы — Pascal(Паскаль)

Uses
  CRT;

Const
  n = 4;

var
  A: array [1 .. n, 1 .. n] of integer;
  i, j: integer;
  sum: real;

Begin
  randomize;
  writeln('Исходная матрица: ');
  FOR i := 1 to n DO
  begin
    FOR j := 1 to n DO
    begin
      A[i, j] := random(10) - 3;
      write(A[i, j]:3);
      if i = j then
        A[i, j] := 1
      else if i > j then
        A[i, j] := A[i, j] * 2;
    end;
    writeln;
  end;
  writeln;
  sum := 0;
  writeln('Результирующая матрица: ');
  FOR i := 1 to n DO
  begin
    FOR j := 1 to n DO
    begin
      write(A[i, j]:3);
      sum := sum + A[i, j];
    end;
    writeln;
  end;
  writeln;
  writeln('SUM:=', sum);
  Readln

End.