Задан произвольный текст. Удалить все запятые и найти на сколько знаков

var s:string;

l:integer;

begin

writeln('Введите текст:');

readln(s);

l:=length(s);

while pos(',',s)gt;0 do delete(s,pos(',',s),1);

writeln(s);

writeln('Текст уменьшился на ',l-length(s),' симв.');

end.

Пример:

Введите текст:

Раз,два,три,четыре,5. Вышел кролик.

Раздватричетырепять. Вышел кролик.

Текст уменьшился на 4 симв.