Помогите пожалуйста подправить процедуру Pascal

Доброго времени суток.

Вот это говорит о том, что у вас обе матрицы имееют [bold]одинаковую [/bold] размерность.

type matr=array[1..N,1..M] of integer;
var A,B:matr;

Просто не все элементы заполнены. Это раз. Во-вторых, зачем столько параметров в процедуре? Достаточно трех: матрица и два столбца, которые надо поменять местами. Вот так

procedure Obmenstolbcov(var A: matr; Col1, Col2: integer);

Обратите внимание, параметры, указывающие столбцы, передаются по значению (без var). Это позволяет при обращении к процедуре использовать константы. Держу пари, что компилятор ругался на ваш код.

А дальше надо просто пробежаться по [bold]всем [/bold] строкам матрицы, объявленного типа, т. е. от 1 до N и используя буфер обменять значениями два элемента, принадлежащих к разным столбцам одной строки. Короче, вот так процедура будет выглядеть.

procedure Obmenstolbcov(var A: matr; Col1, Col2: integer);
var
i, buf : integer;
begin
for i:=1 to N do begin
buf := A[i,Col1];
A[i,Col1] := A[i,Col2];
A[i,Col2] := buf;
end;
end;

Если хотите экзотики, можете дополнительным параметром передавать число строк в обрабатываемой матрице, тогда цикл будет не до N, а до значения, задаваемого этим параметром. Именно так, как сделали вы. Но смысла в этом нет никакого.

И еще. Не используйте в качестве счетчиков цикла глобальные переменные. Вообще, глобальные переменные надо использовать с известной осторожностью, ибо это столбовая дорога для разного рода ошибок в вычислениях.

Удачи!

Вот, совсем немного переделал, скомпилировал, запустил, ввёл значения, программа вывела "матрицу", но правильность проверять долго :) лень :)

Program Z_4_2_6_17;
uses CRT;
const N=5; M=4; P=3;
type matr=array[1..N,1..M] of integer;
var A,B:matr; i,j:integer;
procedure Obmenstolbcov(A:matr; L1,L2,L3:integer);
var buf:integer;
begin
for i:=1 to L3 do {L3-число строк в произвольной матрице)
buf:=A[i,L1];
A[i,L1]:=A[i,L2];{l1-произвольный столбец, L2 - второй произвольный столбец}
A[i,L2]:=buf;
end;
begin
for I:=1 to N do
for J:=1 to M do
readln(A[i,j]);
Obmenstolbcov(A,2,4,5);
for I:=1 to M do
for J:=1 to P do
readln(B[i,j]);
Obmenstolbcov(B,2,3,4);
for I:=1 to N do
begin
for J:=1 to M do
write(A[i,j],' ');
writeln;
end;
for I:=1 to M do
begin
for J:=1 to P do
write(B[i,j],' ');
writeln;
end;
repeat until keypressed;
end.