Помогите, очень срочно.

[Yustinka]

Выдает ошибку "Неверное число параметров процедуры"

Что делать, подскажите пожалуйста. Задача звучит так: Организовать в динамической памяти стек и очередь с возможностью вставки и удаления данных по ключу. Для этого описать запись, содержащую как минимум два поля: информационное поле и тип указатель. Написать процедуры добавления элементов в стек и очередь, вывода значений на экран, вставки элемента перед или после первого элемента с заданным значением ключевого поля.

program z114;

type
uk = ^S;
S = record
inf:integer;
next:uk;
end;

Var 
Sp1,Sp2,Sp3:uk;
k,i,n:integer;

//процедура добавления элементов в стеке
procedure VStek (a:integer; var u:uk);
var
x: uk;
begin
new(x);
x^.inf:= a;
x^.next:= u;
u:= x;
end;

//процедура добавления элементов в очереде
procedure VOchered (a:integer; var hv,u:uk);
var
x:uk;
begin
new (x); 
x^.inf:=a;
x^.next:=nil;
if u = nil 
then 
begin
u:=x; 
hv:=x; 
end
else 
begin
hv^.next:=x; 
hv:=x; 
end;
end;

//процедура вывода значений на экран
Procedure VZn (u:uk);
begin
if u=nil then 
begin
Writeln ('Список пуст');
exit;
end
else 
while u<>nil do 
begin
Write (u^.inf, ' ');
u:=u^.next;
end;
end;

//процедура удаления элементов 
Procedure Udalen(b:integer; var u:uk);
var 
x,y:uk; 
z:boolean;
begin
x := u;
while x<>nil do
if x^.inf=b
then 
begin
if x=u then 
begin
u := u^.next;
dispose(x);
x := u; 
z:=true;
end
else 
begin 
y^.next := x^.next;
dispose(x);
x := y^.next; 
z:=true;
end;
end
else 
begin 
y := x;
x := x^.next;
end;
if z=false then 
writeln ('Заданного элемента в списке нет');
end;

begin
readln(n);
for i:=1 to n do
begin
readln(k);
VStek(k,Sp1);
end;
for i:=1 to n do
begin
readln(k);
VOchered(k,Sp2);
end;
readln;
VZn(Sp3);
Udalen(Sp1);
Udalen(Sp2);
end.

[Аватар]

В какой строке ошибка?

[Yustinka]

for i:=1 to n do
begin
readln(k);
VOchered(k,Sp2);
end;
readln;
VZn(Sp3);
Udalen(Sp1);
Udalen(Sp2);
end.

[Аватар]

Смотри процедуру VOchered - там описаны три параметра. Почему при обращении два? По этой же причине ошибка и в двух предпоследних строках

[Yustinka]

А вы можете написать как это будет? Очень прошу, пожалуйста. В двух предпоследних исправила, а тут как, понято не могу.

...
begin
readln(n);
for i:=1 to n do
begin
readln(k);
VStek(k,Sp1);
end;
for i:=1 to n do
begin
readln(k);
VOchered(k,Sp2);
end;
readln;
VZn(Sp3);
readln(k);
Udalen(k,Sp1);
Udalen(k,Sp2);
end.