Здравствуйте! помогите пожалуйста найти ошибки.
необходимо подсчитать количество символов '*', ';' ,':' в строке.
program upr1;
function vv(b:char;var k:integer):integer;
var st:string;
a:integer;
begin
k:=0;
a:=pos(b,st);
while a<>0 do begin
k:=k+1;
delete(st,a,1);
a:=pos(b,st);
end;
vv:=k;
end;
var st:string;
b:char;
k,a,n:integer;
begin
writeln('введите строку');
readln(st);
k:=vv('*',k);
k:=vv(':',k);
k:=vv(';',k);
write(k);
end.