ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ! ПОМОГИТЕ, ПОЖАЛУЙСТА!
Составьте программу которая позволяет удалить второе слово строки s. Строку s, состоящую из 2 слов, разделённых пробеламі, введите с клавbатуры.

var s: string; x,i: byte;beginwriteln('Введите строку:');readln(s);for i:=2 to length(s) do begin  if s[i]=' '    then begin      x:=i+1;      while (s[x]<>' ') and (x<length(s)) do begin        delete(s,x,1);      end;      delete(s,x,1);      break;    end;end;writeln(s);end.--------------------------Пример 1:мама мыламама Пример 2:Мама мыла рамуМама раму---------------------------PS: считается, что строка не начинается с пробела и не может быть два пробела подряд