задача Pascal - Поменять местами элементы массива 8 и 3 столбцов

[mefos]

дан двумерный массив 10х10 заполненный случайным образом в промежутке от -5 до 25
-Поменять местами элементы 8 и 3 столбцов

[ByAlex]

Сообщение от mefos

дан двумерный массив 10х10 заполненный случайным образом в промежутке от -5 до 25
-Поменять местами элементы 8 и 3 столбцов

Процедура обмена -

for i:=1 to 10 do
begin
   t:=Arr[i,3];
   Arr[i,3]:=Arr[i,8];
   Arr[i,8]:=t;;
end;

[mefos]

можно полностью ато я не бум-бум в этом!

[ByAlex]

Сообщение от mefos

можно полностью ато я не бум-бум в этом!

Держи -

program Project1;
uses
  SysUtils;
const
  n=10;
var
  Arr:array[1..n,1..n] of integer;
  i,j,t:integer;
begin
  writeln('Matrix is - ');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      Arr[i,j]:=random(30)-5;
      write(Arr[i,j],'  ');
    end;
    writeln;
  end;
  for i:=1 to n do
  begin
    t:=Arr[i,3];
    Arr[i,3]:=Arr[i,8];
    Arr[i,8]:=t;;
  end;
  writeln(#13#10'Result massive - ');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(Arr[i,j],'  ');
    writeln;
  end;
  readln;
end.

[mefos]

отдуши ваще)спасибо огромное)