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

Спасибо большое!)

Пожалуйста)

var  i,j,k:integer;  a:array[1..5,1..8]of integer;beginwriteln('Исходная матрица:');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.