С клавиатуры вводится строка. Определить, сколько раз в ней встречается символ "d" Паскаль

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal:

program CountLetterD
va
inputString: string
countD: Integer
i: Integer
begi
countD := 0
Write('Enter a string: ')
ReadLn(inputString)
for i := 1 to Length(inputString) d
begi
if inputString[i] = 'd' the
countD := countD + 1
end
WriteLn('The letter "d" occurs ', countD, ' times in the input string.')
end.

Эта программа считает, сколько раз символ "d" встречается во введенной строке и выводит результат на экран.