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

[linnik]

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

[dr.Jekill]

Создайте массив записей:

Код: Выделить всё

type TParseWord = record
s: String;
n: Integer;
ordsum: Integer;
end;

и заносите туда новые слова (неразрывные последовательности из символов ['A'..'Z','a'..'z']) или увеличивайте счетчик, если слово добавлено в массив ранее.