ПаскальАВС....Строки

[tanya61043]

Дана строка s, содержащая менее чем 256 символов. Подсчитать в ней наибольшее количество идущих подряд пробелов. Использовать стандартные процедуры и функции в действиях над строками.


Помогите прошу вас

[Poma][a]

i := Length(s);
s1 := '';

for i := 1 to n do
      Insert (' ', 1, s1);

i := n;

while Pos (s1, s) <> 0 do
        Delete (s1, 1, 1);

WriteLn (s1)

C потолка! (Не проверял)