Задача в делфи!

[Iron Monk]

i:= 1;
while Pos(sl[i], s) > 0 do  inc(i);
if i > Length(sl) then  'Yes' else 'No';