Дан текст. составьте программу нахождения количества точек в этом тексте. решить с pascal abc

Var s:string; k,i: integer;
begin
 writeln('Введите строку ');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
   if s[i]='.' then k:=k+1;
 writeln('Количество точек в строке = ',k);
end.

Pascal ABC