Дана матрица 8 на 5, заполненная случайными числами от 0 до 10.нужно вывести на экран исходную матрицу и матрицу, в которой к третьему столбцу добавлен шестой.

Var
  i,j,k:integer;
  a:array[1..5,1..8]of integer;
begin
writeln('Исходная матрица:');
for i:=1 to 5 do
  begin
  for j:=1 to 8 do
    begin
    a[i,j]:=random(11);
    write(a[i,j]:3);
    end;
  writeln;
  end;
writeln('Преобразованная матрица:');
for i:=1 to 5 do
  begin
  for j:=1 to 8 do
    begin
    if j=3 then a[i,3]:=a[i,3]+a[i,6];
    write(a[i,j]:3);
    end;
  writeln;
  end;
end.