Задан двумерный массив из N*N элементов; составьте программу, которая добавляет к каждому элементу строки значение элемента главной диагонали соответствующей строки — Pascal(Паскаль)

{ работает с матрицей 4*4 }
Program P3;

const
  n = 4;

var
  V: array [1 .. n, 1 .. n] of integer;
  D: array [1 .. n] of integer;
  i, j: integer;

begin
  writeln('Vvedite massiv');
  for i := 1 to n do
    for j := 1 to n do
    begin
      readln(V[i, j]);
      writeln('V[', i, ',', j, ']=', V[i, j]);
    end;
  for i := 1 to n do
    for j := 1 to n do
      if i = j then
        D[i] := V[i, j];
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
    begin
      V[i, j] := V[i, j] + D[i];
      write(V[i, j]:3);
    end;
  end;
  readln;

end.