Помогите исправить программу(Процедуры и функции)

[Yana`]

Задание:

1 Разработать процедуры:
- ввода элементов массива.
2 - вывода элементов массива на экран;
- преобразования массива, согласно индивидуальному заданию;

3 Разработать функцию, вычисляющую значения, которые являются составляющими выражения Y, результат которого надо найти и вывести в теле основной программы, согласно индивидуальному заданию под буквой "б".

а) Разработать программу, которая в матрицах А, В и С, позволяет заменить все элементы,
превосходящие число М, на число Н . Размерность матрицы А 5х6, размерность матрицы В -7х5, размерность матрицы С 3х5.
........

procedure vvod2(ima_n:string; var m,i,n,j:integer; pr1,pr2:integer; var x: array of integer);
begin
writeln('Введите элементы массива (',ima_n,')');
For i:=1 to m do
For j:=1 to n do
begin
write('m[',i,',',j,']: ');
readln(x[i]);
end;
end;

procedure zamena(ima_n:string; m,n,i:integer; var x: array of integer);
begin
writeln('Введите n:');
readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
write(x,' ');
writeln;
writeln('Введите m:');
readln(m);
writeln('Новый массив: ');
for i := 1 to n do
begin
if x[i]>m then
m:=n;
write(m,' ');
end;
end;

procedure vivod(ima_n:string; m,i,n,j:integer; var x: array of integer);
begin
writeln('массив (',ima_n,')');
for i:=1 to m do
begin
for j:=1 to n do
write(x[i],' ');
writeln;
end;
end;

function viraj(n1,s:integer; var kch1:integer; var x: array of integer);
begin
kch1:=kch1+1;
writeln('Кол-во четных элементов в массиве (',ima_n,'): ',kch1);
end;

var
a: array[1..10] of integer;
b: array[1..15] of integer;
c: array[1..7]of integer;

begin
writeln('Программа заменяет все элементы, превосходящие число М на число Н');
vvod('A',m1,n1,prp1,prp2, A);
vvod2('A',m1,n1,prp1,prp2, A);
vvod('B',m2,n2,prv1,prv2, B);
vvod2('B',m2,n2,prv1,prv2, B);
vvod('C',m3,n2,prt1,prt2, C);
vvod2('C',m3,n3,prt1,prt2, C);
writeln('вы ввели: ');

vivod('A',m1,n1, A);
vivod('B',m2,n2, B);
vivod('C',m3,n3, C);
writeln('------------');
opr(n1,n2,n3,f);

zamena('A',m1,n1,A,f);
zamena('B',m2,n2,B,f);
zamena('C',m3,n3,C,f);
writeln('------------');
writeln('----результат----');
vivod('A',m1,n1, A);
vivod('B',m2,n2, B);
vivod('C',m3,n3, c);

y:=viraj(n1,s,t_,A,'A');
y:=viraj(n2,s,r,B,'B');
y:=viraj(n3,s,z,C,'C');
y:=(t-r/5+z)+(t-3*z/r);
writeln('результат выражения: ',y:6:2);
end.

[digitalis]

Опять советую, как остальным другим: хочешь помощи - сделай свой исходник читабельным, для этого есть теги [CODE] и отступы.
А что не так в проге? Не работает или работает не так? Или как обычно: взят первый попавшийся исходник из сети или у сокурсника - и "сделайте из этого полена Буратину" ? Что это именно так - наводят на мысль pr1,pr2 в процедуре vvod2 - описаны, но нигде не используются. Массивы A,B,C описаны в главной программе как одномерные, а используем как двухмерные?
Передать массиа в качестве параметра требует определённого напряжения мозговых извилин, так что, скорее всего - во Фриланс.
Сдуваем, не включая голову...