Дана строка символов. Определите, сколько раз среди символов строки встречается буква x — Pascal(Паскаль)

uses crt;
var st:string;
ch:char;
i,k:integer;
 
begin
 clrscr;
 write('Строка -> ');
 readln(st);
 ch:='x';
 k:=0;
 for i:=1 to length(st) do if st[i]=ch then inc(k);
 writeln(k);
 readln;
end.

var s:string;
     i,k:byte;
begin
write('text');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='x' then inc(K);
write('Встречается ',k);
end.