Дан одномерный массив.Проверить встречается ли в нем символ знак вопроса и посчитать сколько раз

var s:string; n,l,k,i:integer; begin write ('Введите строку: '); readln(s); n:=0; l:=0; k:=0; for i:=1 to length(s) do begin n:=ord('?'); l:=ord(s[i]); if n=l then k:=k+1; end; WRITELN; if k=0 then writeln ('Знак вопроса ни разу не встретился в строке.') else writeln ('Знак вопроса встретился ',k,' раз строке.'); end.