Как поменять последний и передостаний столбики в массиве

[ВДПУ]

Разработайте алгоритм и программу, которые в двумерном массиве размерностью 4 на 3 меняют местами последний и передостаний столбце. Обеспечить вывод на экран массива в виде таблицы до и после преобразования.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  const n=3; m=4;
  var t:array[1..n,1..m] of integer;
  i,j, dob: integer;
begin
  randomize;
  writeln('Nash maduv');
  for i:=1 to n do
    for j:=1 to m do
    begin
   t[i,j]:=random(50)-25
   end;
   for i:=1 to n do
    begin
    for j:=1 to m do
    write(t[i,j]:5);
    writeln;
    end;

    for i:=1 to n do
    for j:=1 to m do
     begin
     if (j>3) and (i>0)then
     dob:=t[i,j];
     t[i,j]:=t[i,j+1];
      t[i,j+1]:=dob;
      end;
      writeln;
      for i:=1 to n do
    begin
    for j:=1 to m do
    write(t[i,j]:5);
    writeln;
    end;
    readln
end.

Я сделал, но оно меняет все столбики.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[_Alerter_]

Если

передостаний

- это предпоследний, то так:

for i := 1 to n do
begin
    dob := t[i, m - 1];
    t[i, m - 1] := t[i, m];
    t[i, m] := dob; 
end;

[ВДПУ]

нет, так тож не верно(

[Serge_Bliznykov]

Сообщение от ВДПУ

нет, так тож не верно(

ищите у себя в коде проблему!

код, предложенный _Alerter_ делает ровно то, о чём Вы просили!

const
  n=3; m=4;

var
  t:array[1..n,1..m] of integer;
  i,j, dob: integer;

procedure PrintMatrix;
begin
   for i:=1 to n do
    begin
      for j:=1 to m do
        write(t[i,j]:5);
      writeln;
    end;
end;

begin
  randomize;
  writeln('Nash maduv');

  // заполнение матрицы
  for i:=1 to n do
    for j:=1 to m do
       t[i,j]:=random(50)-25;

  WriteLn('Ishodnyi massiv: ');
  PrintMatrix;

  // меняем последний и предпоследний столбцы местами
  for i := 1 to n do
  begin
    dob := t[i, m - 1];
    t[i, m - 1] := t[i, m];
    t[i, m] := dob;
  end;

  WriteLn('Posle zameny: ');
  PrintMatrix;

  readln
end.