Задан произвольный текст. удалить все запятые и определить на сколько символов уменьшить я текст( паскаль, подробно, через write, read, delete и тп)

var s:string;

l:integer;

begin

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

readln(s);

l:=length(s);

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

writeln(s);

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

end.

Пример:

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

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

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

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