Удалить из строки все пробелы - Pascal

Формулировка задачи:

Помогите пожалуйста: надо удалить из строки все пробелы. Найти я их смог, а вот как удалить не знаю...

Решение задачи: «Удалить из строки все пробелы»

Листинг программы

Program forum;
uses crt;
var s: String;
begin
  clrscr;
  readln(s);
  While (Pos(' ',s) <> 0) do
        Begin
        Delete(s, Pos(' ',s), 1);
        End;
  writeln(s);
  readln;
end.

Объяснение кода листинга программы

Объявляется переменная строки с названием s.
Очищается экран.
Пользователю предлагается ввести строку, которая сохраняется в переменной s.
В цикле While проверяется наличие пробела в строке s с помощью функции Pos(' ',s).
Если пробел найден (т.е. Pos(' ',s) не равно 0), то выполняется следующий блок:
- Функция Delete(s, Pos(' ',s), 1) используется для удаления одного символа (пробела) из строки s.
Когда цикл заканчивается и в строке s не остается пробелов, программа выводит полученную строку без пробелов.
Ожидается нажатие клавиши пользователем, чтобы завершить программу.