Помогите найти ошибку в программе

[Wast]

Задание-
функция Charonly (C1,C2:string):string из строки
С1 удаляет все символы,которых нет в строке С2


program n72;
var C1,C2,F:string;
Function Charonly(u,v:string):string;
var i,k:integer;
d,s,l:string;
begin
s:='';
while u>'' do begin
d:=copy(u,1,1);
delete(u,1,1);
i:=pos('.',v);
k:=1;
while k<=i do begin
writeln(k);
l:=v[k];
if d=l then begin
s:=s+d;
end;
k:=k+1;
end;
end;
charonly:=s;
end;
begin
writeln('vvedi C1');
readln(C1);
writeln('vvedi C2');
readln(C2);
F:=Charonly(C1,C2);
writeln(C1,C2);
writeln(F);
end.

[Tkirill]

uses crt;
var
s1,s2:string;
function charonly(c1,c2:string):string;
var
i:integer;
m:set of char;
begin
m:=[];
for i:=1 to length(c2) do
m:=m+[c2[i]];
i:=1;
repeat
if not (c1[i] in m) then delete(c1,i,1)
else i:=i+1;
until i>length(c1);
charonly:=c1;
end;
begin
clrscr;
write(' -> ');
readln(s1);
writeln;
write(' -> ');
readln(s2);
writeln;
writeln(charonly(s1,s2));
readln;
end.

[Wast]

Спасибо выручил +1 тебе