Посчитать, сколько раз в заданном тексте встречается заданный символ — Pascal(Паскаль)

var s:string;
     zs:char;
     i,k:byte;
begin
writeln('Text:');
readln(s);
write('Simvol zs=');
readln(zs);
k:=0;
for i:=1 to length(s) do
if s[i]= zs then k:=k+1;
write(k,' raz');
readln
end.