Написать программу, которая находит количество знаков препинания в заданной символьной строке — Pascal(Паскаль)

uses crt;
var str: String;
    i,t,k,p: Integer;
begin
ClrScr;
Readln(str);
t:=0; p:=0; k:=0;
 for i := 1 to Length(str) do
  begin
   if str[i]=',' then
      t:=t+1;
   if str[i]=';' then
      p:=p+1;
   if str[i]=':' then
      k:=k+1;
 end;
Writeln(', = ', t);
Writeln('; = ', p);
Writeln(': = ', k);
Readln;
end.