Дана строка, состоящая из слов, разделенных пробелами. Напишите программу, удаляющую лишние пробелы. Пробел

var
  s: string;
begin
  write('Vvedite text: ');
  readln(s);
  while s[1]=' ' do
    delete(s,1,1);//в начале строки
  while s[length(s)]=' ' do
    delete(s,length(s),1);//в конце строки
  while pos('  ',s)>0 do
    delete(s,pos('  ',s),1);//в середине, в апострофах по 2 пробела
  writeln(s);
end.