При компиляцыи выдает ощыбку в 63-й сроке мол "Нету перегруженой системы с такими типами параметров" ПОМОГИТЕ

[makkalister1999]

Uses Crt;
type mas=array[1..10] of string;
var a:mas;
n,temp,p:integer;
Procedure vvod (var k:integer;var s:mas);
var
ch:string;
begin
Clrscr;
Repeat begin
Writeln('введ',k,'запис(шифр/кількість/місце):');
Readln(s[k]);
k:=k+1;
Writeln('Продовжити?[Y/N]');
ch:=ReadKey;
end
Until(ch='N');
end;
Procedure vuvod(k:integer; s:mas);
var i:byte;
begin
Clrscr;
for i:=1 to k do
Writeln(s[i]);
ReadKey;
end;
Procedure poisk(k:integer; s:mas);
var i,j:byte; ss,s1:string;
begin
Clrscr;
Write('введіть шифр=');
Readln(ss);
j:=0;
for i:=1 to k do
if(pos(ss,s[i])<>0)then 
begin
j:=j+1;
s1:=s[i];
delete(s1,pos(ss,s1),pos('/',s1));
Writeln(s1);
end;
if(j=0) then Writeln ('Такого шифру немає');
ReadKey;
end;
Procedure vudacha(nom:integer; var s:mas);
var kil,code, k:integer;
ss,s1,skil:string;
begin
Clrscr;
s1:=s[nom];
delete (s1,1,pos('/',s1));
delete (s1,pos('/',s1),length(s1));
Writeln ('Скільки деталей видати?');
Readln(kil);
val(s1,k,code);
if(code <>0) then
Writeln('Помилка в записі')
else begin
kil:=k-kil;
str(kil,skil);
insert(skil,s[nom],pos(s1,s[nom]));
delete(s[nom],pos(s1,s[nom],length(s)));
Writeln('товар видано!');
end;
ReadKey;
end;
Begin
n:=1;
Repeat ClrScr;
begin
Writeln('1.Створити каталог');
Writeln('2.Вивести каталог');
Writeln('3.Пошук за шифром');
Writeln('4.Видача деталей');
Writeln('5.Вихід');
Readln(temp);
case temp of
1: vvod(n,a);
2: vuvod(n,a);
3: poisk(n,a);
4: begin
Writeln('введіть номер запису');
Readln(p);
vudacha(p,a);
end;
5:Exit;end;end;
Until(temp=5);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[type_Oleg]

Вы сами не можете найти эту самую 63-ю строку?
Наверное здесь:

delete(s[nom],pos(s1,s[nom],length(s)));

В delete должно быть 3 параметра, а у вас - 2
В pos должно быть 2 параметра , у вас - 3
Наверное, с скобками что-то..