Дан текст. Удалить лишние пробелы. Не используя функцию delete. Паскаль

Предыдущий
вопрос Следующий
вопрос

Пример:

program RemoveExtraSpaces;
var
text, newText: string;
i: integer;
begin
text := 'Этот текст содержит лишние пробелы ';
newText := '';
for i := 1 to Length(text) do
begin
if (text[i] <> ' ') or ((text[i] = ' ') and (text[i + 1] <> ' ')) then
newText := newText + text[i];
end;
writeln('Было: ', text);
writeln('Стало: ', newText);
end.