Pascal, строкиВвести строку и слово. Удалить слово из строки, если она в ней содержится.

var
  subs, s: string;
begin
  write('Enter the string: ');
  readln(s);
  s := s + ' ';
  write('Enter the word: ');
  read(subs);
  while pos(' ', subs) > 0 do
    delete(subs, pos(' ', subs), 1);
  subs := ' ' + subs + ' ';
  if pos(subs, s) > 0 then
    delete(s, pos(subs, s) + 1, length(subs) - 1);
  write('The resulting string: ', s);
end.