[PASKAL] Составить программу вычеркивания из текста всех пробелов
Помогите решить задачу !

Спасибо огромное !))))

vars: string;i: integer;beginreadln(s);for i:=length(s) downto 1 doif s[i] = ' ' thendelete(s, i, 1);writeln(s);end.Пример входных данных: Мама мыла рамуПример выходных данных: Мамамылараму

//Pascal ABC.NET v3.0 сборка 1111Var s:string;begin readln(s); while pos(' ',s)<>0 do delete(s,pos(' ',s),1); writeln(s);end.Пример ввода:Cat is fine tooПример вывода:Catisfinetoo