посмотрите прогу по паскалю , сделал но не работает подскажите как исправить плиз

Я почти верю, что ЭТО написали вы.
У вас в задании написано, что заданы 2 матрицы, в вашей же "программе" обрабатывается только одна. Потом, если вы используете функции и процедуры, то применение для передачи данных через глобальные переменные в этом случае ну просто неприлично.
И ещё, простите меня тупую блондинку, но как вернуть значение функции в виде массива без использования динамической памяти и указателей, мне не суждено додуматься.

program mm;
type tarray=array [1..100,1..100] of integer;
procedure vvod(var a:tarray; var N:integer);
var i,j:integer;
begin
write('Введите размер матрицы N:');
readln(N);
writeln('Введите элементы матрицы: ');
for i:= 1 to N do
for j:= 1 to N do
begin
write('a[',i,',',j,'] = ');
readln(a[ i,j]);
end;
end;
procedure vyvod(const a:tarray; const N:integer);
var i,j:integer;
begin
for i:= 1 to N do
begin
for j:= 1 to N do
write (a[ i,j]:5);
writeln;
end;
readln;
end;
procedure process(var a:tarray; const N:integer);
var i,j,jmin,jmax,min,max:integer;
begin
for i := 1 to N do
begin
for j := 1 to N do
begin
if (j=1) or (a[ i,j] > a[ i,jmax]) then jmax:=j;
if (j=1) or (a[ i,j] < a[ i,jmin]) then jmin:=j;
end;
min := a[ i,jmin];
max := a[ i,jmax];
a[ i,jmin] := a[ i,N];
a[ i,jmax] := a[ i,1];
a[ i,N] := min;
a[ i,1] := max;
end;
end;
var a,b:tarray;
na,nb:integer;
begin
writeln('Ввод 1-й матрицы. ');
vvod(a,na);
writeln('Ввод 2-й матрицы. ');
vvod(b,nb);
process(a,na);
process(b,nb);
writeln('Преобразованная 1-я матрица: ');
vyvod(a,na);
writeln('Преобразованная 2-я матрица: ');
vyvod(b,nb);
end.

>>сделал но не работает
ну ну...

Это тебе в письме прислали, что ли? Сделал.. . ;)
Это все переписывать надо.