Ввести строку с клавиатуры, заменить все символы «,» на символы «;», вывести результирующую строку, вывести длину строки, количество слов и количество замен — Pascal(Паскаль)

Uses crt;
Var
    a,c:string;
    i,n,k,l:integer;
Begin
read(a);
k:=0;
l:=0;
i:=1;
c:=';';
while (i <= length(a)) do
begin
    while ((i <= length(a))and(a[i]=' '))do
       inc(i);
    inc(l);
    while ((i <= length(a))and(a[i]<>' '))do
    begin
        if a[i] = ',' then begin delete (a,i,1);insert(a,c,1);inc(k);end;
        inc(i);
    end;
end;
if a[length(a)]=' ' then dec(l);
writeln('Dlina =',length(a));
writeln('kol-vo zamen =',k);
writeln('kol-vo slov=',l);
writeln(a);
End.