Дaно нaтурaльноe число n, символы s1,…,sn. Подсчитaть сколько рaз срeди дaнных символов встрeчaeтся символ + и сколько рaз символ — Pascal(Паскаль)

uses crt;
var c:char;
    n,i,k1,k2:integer;
begin
clrscr;
writeln('Сколько символов ввести?  n=');
readln(n);
k1:=0;k2:=0;
for i:=1 to n do
 begin
  readln(c);
  if c ='+' then k1:=k1+1;
  if c ='*' then k2:=k2+1;
 end;
writeln('Символ + введен ',k1,' рз.  символ * - ',k2,' рз.');
readln
end.