Работа со строками

[linnik]

Текст вводится с клавиатуры. Удалить в нём лишние пропуски(пробелы), оставить только по одному пробелу между слов. Определить сумму кодов ASCII всех парных слов, а также сумму кодов всех непарных слов. Помогите пожалуйста, кто-нибудь, очень надо!

[Stilet]

Удалить в нём лишние пропуски(пробелы), оставить только по одному пробелу между слов.

i:=pos('  ',s);while i<>0 do begin delete(s,i,1);i:=pos('  ',s);end;

Определить сумму кодов

Каких кодов? Наработки где?

[linnik]

сумму ASCII кодов чётных слов