Задача в Pascal abc

[Alice_]

необходимо.в.строке.подсчитать.коли чество.точек.и.вывести.на.экран.стр оку.чтобы.после.каждой.точки.стоял. её.порядковый.номер

[Arigato]

необходимо.1в.2строке.3подсчитать.4 коли чество.5точек.6и.7вывести.8на.9экра н.10стр оку.11чтобы.12после.13каждой.14точк и.15стоял.16 её.17порядковый.18номер

Ответ: 18 точек.

[newerow1989]

var s:string;
    i,k:integer;
begin
   Write('s = ');Readln(s);
   k:=0;
   For i:=1 to Length(s) do
   begin
      Write(s[i]);
      If s[i]='.' then
      begin
         k:=k+1;
         Write(k);
      end;
   end;
   Writeln;
   Writeln(k,' tochek');
   Readln;
end.