Дана строка. Удалить из нее все пробелы. Программа Паскаль

program space_del;

var s: string; //строковая переменная

k:integer;

begin

writeln ('Enter text ');

readln (s); //ввод строки текста с пробелами

k:=0; //значение k для входа в цикл

repeat

k:=pos (' ', s); / /номер позицииб на которой стоит пробел

Delete (S, k, 1); / /удаляется пробел с позиции k

until k<1; / /если пробел не найден, k будет равно 0;

/ / цикл остановится

write (s);

end.