массив, нужна помощ

[Активити]

Составить программу выполнения задания по двухмерных массивах (матриц). Ввести входные данные и вывести на экран входные данные и результаты вычислений.Измеримость 1 матриц 3х3, измеримость 2 матрицы 3х2, тип компонентов char.
Второй столбец второй матрицы поменять местами со вторым столбцом первой матрицы. Как это сделать, хотя бы намек если можно, а то по специальности я таможенник в программировании не очень, в школе не было, а в вузе есть, в материале к лабораторной примера как решать такое задание нету.

[reflexx]

const
  FirstMatrixRows = 3;
  FirstMatrixCols = 3;
  SecondMatrixRows = 3;
  SecondMatrixCols = 2;
var
  FirstMatrix: array [1..FirstMatrixRows, 1..FirstMatrixCols] of Char;
  SecondMatrix: array[1..SecondMatrixRows, 1..SecondMatrixCols] of Char;
  i, j: Integer;
  temp: Char;
begin
  WriteLn('Введите элементы первой матрицы: ');
  
  for i:=1 to FirstMatrixRows do 
   for j:=1 to FirstMatrixCols do begin
     WriteLn('Элемент [', i, ', ', j, ']: ');
     ReadLn(FirstMatrix[i, j]);
   end;

  WriteLn('Введите элементы второй матрицы: ');
  
  for i:=1 to SecondMatrixRows do 
   for j:=1 to SecondMatrixCols do begin
     WriteLn('Элемент [', i, ', ', j, ']: ');
     ReadLn(SecondMatrix[i, j]);
   end;
  
  for i:=1 to FirstMatrixRows do begin
    temp:=FirstMatrix[i, 2];
    FirstMatrix[i, 2]:=SecondMatrix[i, 2];
    SecondMatrix[i, 2]:=temp;
  end;
  
  WriteLn('Первая матрица: ');
  
  for i:=1 to FirstMatrixRows do begin 
    for j:=1 to FirstMatrixCols do
     Write(FirstMatrix[i, j]: 3);
    WriteLn;
  end;  
    
  WriteLn('Вторая матрица: ');
  
  for i:=1 to SecondMatrixRows do begin 
    for j:=1 to SecondMatrixCols do
     Write(SecondMatrix[i, j]: 3);  
    WriteLn;
  end;  
end.