Заменить в заданном тексте буквосочетание «abc» на «klmn» и удалить лишние пробелы — Pascal(Паскаль)

var
s:string;
begin
s:='abc  klmn';
while pos('  ',s)>0 do //в апострофах по 2 пробела
delete(s,pos('  ',s),1);
writeln(s)
end.