Задан произвольный текст. Удалить все запятые и определить на сколько символов уменьшить я текст (паскаль, подробно, через 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 симв.