Из строки символов удалить группу символов «абвг» . Помогите составить программу на паскале

var
s: string;
p: integer;
begin
write('строка? ');
readln(s);
p := pos('абвг', s);
while p 0 do begin
delete(s, p, 4);
p := pos('абвг', s);
end;
writeln('результат: ', s);
end.