Проблема с матрицей 3на4

[onded]

я учусь на 2 курсе программирования, и так и не понимаю язык паскаля . Вернее не пойму как можно программировать в Паскале и делать бред с формулами. Нам задали супер бред
Матрицу 3на4 заполнить позитивными и негативными числами(любыми от -50 до 50). Поменять местами первую и одну из последних колонн, в которой только позитивные числа. Если такой колонны нет, то матрицу не менять.
Вот как мне сделать в Паскале такой бред?? Помогите плиз, буду признателен.

[eoln]

И не говорите, задают всякий бред. Ну нет чтоб сразу диплом дать (красный конечно же), сказать где крутую среду программирования скачать и всё - сразу начнём создавать что-нибудь великое!!!

const
  n = 3;
  m = 4;
var
  i, j, k: integer;
  b: boolean;
  mas: array[1..n, 1..m] of integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      write('[',i,' ,',j,'] = ');
      readln(mas[i, j])
    end;
  end;
  writeln('Dano:');
  for i := 1 to n do
  begin
    for j := 1 to m do write(mas[i,j]:4);
    writeln
  end;
  k := 0;
  for j := m downto 2 do
  begin
    b := true;
    for i := 1 to n do if mas[i, j] < 0 then b := false;
    if b then begin
      k := j;
      break
    end
  end;
  if k <> 0 then for i := 1 to n do
  begin
    j := mas[i, k];
    mas[i, k] := mas[i, 1];
    mas[i, 1] := j
  end;
  writeln('Otvet');
  for i := 1 to n do
  begin
    for j := 1 to m do write(mas[i,j]:4);
    writeln
  end;
  readln
end.

[onded]

Спасибо eoln очень помог. Респект!!!