Узбавление от конечного пробела в строке.

[Broken Angel]

Есть прога по расчету кол-ва символов в строке, но для правильности вывода ответа там нужно вводить строку с пробелом после последнего слова. Исправьте, пожалуйста, программу, чтобы ответ выводился как положено (т.е. без конечного пробела).

uses crt;
const
M=[' ',',','.',';',':','-','=','+'];
var
s,s1,s2:string;
begin
writeln('Введите строку:');
readln(s);
 begin
 while pos(' ',s)<>0 do begin

    if pos(' ',s)>1 then begin

       s1:=copy(s,1,pos(' ',s)-1);
         writeln('В слове ',s1,' - ',length(s1),' символ(ов)');
end;
  delete(s,1,pos(' ',s));
end;
end;
end.

[Serge_Bliznykov]

ну это приведёт к полной переделке программы..
а можно поступить иначе...

Можно очень просто сделать так,
чтобы НЕ ТРЕБОВАЛОСЬ вводить пробел в конце строки (программа будет его добавлять сама).
Тогда и в алгоритме менять ничего не надо:

  writeln('Введите строку:');
  readln(s);
  if (Length(s)>0) and (Copy(s,Length(s),1)<>' ') then
     s := s + ' ';

[Broken Angel]

Ясно, спасибо. Надеюсь, эта поправка не помешает потом удалить те слова, которые длиннее заданного параметра...