Задача с символами

[lavrentev]

Всем привет
Проходим символьный тип данных char, дали решать задачу
Не могу сообразить как решать
Задача. Подсчитать количество символов в строке, код которых на 2 меньше, чем код введенной с клавиатуры

[p51x]

uint32_t count = 0;
for(uint32_t i = 0; i < strlen(str); ++i)
  if(Need ==(2+str[i])) ++count;

[SASFM]

Задача. Подсчитать количество символов в строке, код которых на 2 меньше, чем код введенной с клавиатуры

Может так?

var kod,kol,i:integer;
    s:string;
begin
  read(s);
  read(kod);
  for i:=1 to length(s) do
  if ord(s[i])+2 = kod then inc(kol);
  write(kol);
end.