Question

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

Answer 1

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.