Ввести с клавиатуры предложение. Сделать вставку запятой после слов заканчивающихся на «й». Вывести на экран кол-во таких вставок — Pascal(Паскаль)

Program vstavka;
Uses crt;
Var a: string; i,k:byte;
Begin
Clrscr;
k:=0;
Writeln('Исходная строка: ');
Readln(a);
For i:=1 to length(a) do
begin
If a[i]='й' then insert(',',a,i);
k:=k+1;
end;
Writeln('Результат: ');
Writeln(a);
Write('Кол-во вставок = ',k);
End.