program
Project15;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   s, s1, s2, s3: String;
   i: Integer;

begin
   Readln(s);  //  Ввод предложения
   s1:= '';  //  
Отчистили переменную s1
   s2:= '';  //  Отчистили переменную s2
   s3:= '';  //  Отчистили переменную s3
   for i:= 1 to Length(s)
+ 1 do    //  Делать пока не будет конец строки + 1
     if (s[i] <>
' ') and (i <> Length(s) + 1) then  //  Если символ не равен
пробелу и i не равно длине строки + 1
   s2:= s2 + s[i]  //  Переменной
s2 присвоили очередной символ строки s
  else
  begin
      
    s3:= s3 + ' ';  //  Считаем количество пробелов после слова
     
     While Length(s2) <> 0 do  //    Пока длина ытроки не будет ровна 0
делать
        begin
       s1:= s1 + Copy(s2, Length(s2), 1);
  //  Скопировали 1 символ из конца строки s в строку s1
    
Delete(s2, Length(s2), 1);  //    Удалили последний символ строки s
          
  end;
     s2:= '';  //  Отчистили переменную s2
        
s1:= s1 + s3;  //  Добавили в конец слова пробелы
         s3:= '';
  //  Отчистили переменную s3
  end;
   Writeln(s1);  //  Вывели в
поле ввода 2 содержимое строки s1
   Readln;  //  Задержка выхода из
программы
end.

project Project1;

{$APPTYPE CONSOLE} // Тип приложения - консольное

uses SysUtils; //Используемые модули

var
   F: File of Char; //Файловая перемнная
   Ch: Char; //Прочитанный символ
   Q: Boolean; //Признак, что мы в строке в ковычках

begin
   Q := False; //Обнуляем перемнную
   AssignFile(F, \'text.txt\'); //Связываем файловую перенную с файлом
Reset(F); //Открываем файл
while not EOF(F) do //Цикл пока не конец файла
begin
   Read(F, Ch); //Читаем очередной символ
   if Ch = \'"\' then Q := not Q; //Если это ковычка, то мы
вышли/вошли в строку в ковычках
   if (Ch <> \'"\') and Q then Write(Ch); //Если мы в строке
и это не ковычка выводим символ
end;
WriteLn; //Переходим на новую строку
ReadLn; //Ждём нажатия Enter
CloseFile(F); //Закрываем файл
end.