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

Program Fun_with_arrays2;

const
  SIZE = 4;

var
  a: array [1 .. SIZE, 1 .. SIZE] of integer;
  i, j, sum: integer;

begin
  sum := 0;
  for i := 1 to SIZE do
    for j := 1 to SIZE do
      a[i][j] := random(100);
  writeln('Here is your matrix');
  for i := 1 to SIZE do
  begin
    for j := 1 to SIZE do
      write(a[i][j]:4);
    writeln;
  end;
  for i := 1 to SIZE do
    a[i][i] := 1;
  for i := SIZE downto 1 do
    for j := 1 to i - 1 do
      a[i][j] := 2 * a[i][j];
  for i := 1 to SIZE do
    for j := 1 to SIZE do
      sum := sum + a[i][j];
  writeln('Here is your changed matrix');
  for i := 1 to SIZE do
  begin
    for j := 1 to SIZE do
      write(a[i][j]:4);
    writeln;
  end;
  writeln('Here is sum of matrix elements');
  writeln(sum);
  readln;

end.