В строке удалить введённое буквосочетание- Pascal(Паскаль)

var
a,b:string;
begin
writeln('vvedite stroku');
readln(a);
writeln('vvedite sochetanie bukv');
readln(b);
while pos(b,a)<>0 do
delete (a,pos(b,a),length(b));
writeln('novaya stroka');
writeln(a);
readln;
end.