С клавиатуры вводиться строка и буква, необходимо составить программу которая подсчитывает сколько раз эта буква встречалась в программе

Program n1;

Uses CRT;

Var s: string; a: char; i, k: integer;

begin

Writeln ('Vvedite stroku');

readln (s);

Writeln ('Vvedite simvol');

readln (a);

For i:=1 to length (s) do

if s[i]=a then k:=k+1;

Writeln ('Simvol ', a,' vstrechaetsa v stroke ', k,' raz');

readln

end.