Pascal.Строки символов.Определить количество знаков

program strings;
{
3. Строки.Дана символьная строка.
Определить, сколько в ней знаков "*", ";", ":".
}
{$APPTYPE CONSOLE}

uses
  SysUtils;

var str: String;
    i, ColZvezda, ColToZap, ColDvoet: Integer;
begin
Readln(str);
ColZvezda := 0;
ColToZap := 0;
ColDvoet := 0;

  for i := 1 to Length(str) do
  begin
    if str = '*' then ColZvezda := ColZvezda + 1;
    if str = ';' then ColToZap := ColToZap + 1;
    if str = ':' then ColDvoet := ColDvoet + 1;
  end;

Writeln('Zvezdochek = ', ColZvezda);
Writeln('Tochek s Zapyatoy = ', ColToZap);
Writeln('Dvoetochii = ', ColDvoet);

Readln;
end.
 
{
[COLOR="Blue"]Это только в разделе Фриланс можешь писать и там предлагать свои услуги,но не в Студентах,тут помощь бесплатная.[/COLOR]
}