[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