Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами — Pascal(Паскаль)

program Project1;

{$APPTYPE CONSOLE}

var
  mes, mesK: string;
  per, vto: char;
  i: integer;

begin
  Write('Введите предложение :');
  Readln(mes);
  for i := 1 to length(mes) do
  begin
    per := mes[i];
    vto := mes[i + 1];
    if (per = ' ') and (vto = ' ') then
      mesK := ''
    Else
      mesK := per + vto;
    Write(mesK);
  End;
  Readln;

end.

Leave a Comment

19 − = 18