Посчитать, сколько раз среди данных символов встречается символ "+" и сколько раз символ "*"

program plusmul;
 
const m = 100;
 
var n, i, kp, ku: integer;
    s: char;
 
begin
  repeat
    write('n = ');
    readln(n);
    if (n < 1) or (n > 100) then writeln('n out of range 1..', m, ', reenter')
  until (n >= 1) and (n <= 100);
  kp := 0;
  ku := 0;
  writeln('Enter symbols:');
  for i := 1 to n do
    begin
      write(i:3, ': ');
      readln(s);
      if s = '+' then kp := kp + 1;
      if s = '*' then ku := ku + 1
    end;
  writeln('Count of "+" symbol: ', kp);
  writeln('Count of "*" symbol: ', ku);
  readln
end.

program plusmul;
 
var i, kp, ku: integer;
    s: string;
 
begin
  kp := 0;
  ku := 0;
  writeln('Enter string:');
  readln(s);
  for i := 1 to length(s) do
    begin
      if s[i] = '+' then kp := kp + 1;
      if s[i] = '*' then ku := ku + 1
    end;
  writeln('Count of "+" symbol: ', kp);
  writeln('Count of "*" symbol: ', ku);
  readln
end.

while not EOLn do begin
  Read(s);
  ...
end; ReadLn;