Создание массива процедура. - Паскаль

[Айдар]

ДОбрый день всем, помогите разобраться, задача такого вида,
В двух массивах x(n), y(m) имеются по имеються по одному мин. значению, найти номер этих эл. в обоих массивах, и вывести величину этих элементов.
1)Создание массива процедура.
2)Поиск мин. процедура
3)Ввод и вывод значений осн программа
Вот что написал, но я не могу разобраться с переменными процедуры (фактические, формальные), помогите разобраться.

program p1;
type mass=array [1..100] of integer;
var
x,y:mass;
i,m,n,k:integer;
procedure mas (?)
begin
for:=1 to n do
readln(a[i]);
fori:=1 to n do
writeln (a[i]);
end;
procedure min (?)
var
min:integer;
begin
min:=1
for i:=2 to n do
if a[i]<a[min] then
min=i;
k:=min;
end;
begin
readln (n);
mass (n,x);
min (n,x,k);
writeln (x[k]);
readln (m);
mass(m,y);
min(m,y,k);
writeln (y[k]);
readln;
end.

[Alex Cones]

Читаем, разбираемся: http://www.programmersforum.ru/showthread.php?t=70310

P.S. Если у Вас есть какие-то глобальные переменные и вы с ними работаете, можете вообще не указывать никакие форм.действ переменных.

[VilAm]

procedure mas (var a:mass;n:integer);
begin
for i :=1 to n do
readln(a[i]);
for i:=1 to n do
writeln (a[i]);
end;

procedure min (var a:mass;n:integer;var k:integer)
var
min:integer;
begin
min:=1
for i:=2 to n do
if a[i]<a[min] then
min=i;
k:=min;
end;

[Айдар]

вот на этом месте выдает ошибку

mass (n,x);

Что делать?

[VilAm]

написать
mass (x,n);

[Айдар]

Все равно ошибка (((

[Alex Cones]

procedure mas (var a:mass;n:integer);

mass (n,x);

C одной "с"?

[Айдар]

Все переделал, щас запускается, а вообще у меня прога правильно написана.

program p1;
type mass=array [1..100] of integer;
var
x,y:mass;
i,m,n,k:integer;
procedure mas (var a:mass;n:integer);
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
writeln (a[i]);
end;
procedure min (var a:mass;n:integer;var k:integer);
var
min:integer;
begin
min:=1;
for i:=2 to n do
if a[i]<a[min] then
min:=i;
k:=min;
end;
begin
readln (n);
mas (x,n);
min (x,n,k);
writeln (x[k]);
readln (m);
mas(y,m);
min(y,m,k);
writeln (y[k]);
readln;
end.