Дано слово из 4 символов. Сколько раз встречается в нем заданный символ?

const
n=4;
var 
s:string ;
d:char ;
h,i: integer;
 
begin 
writeln('vvod stroku z 4 bukv ');
readln(s);
writeln ('bukvu');
readln (d);
h:=0;
for i:=1 to n do begin
if s[i]=d then h:=h+1 ;
end;
writeln (h);
//if length (s) > n then writeln ('nevozmojno');
end.

var
  s: string;
  c: char;
  i, k: byte;
 
begin
  repeat
    Write('Введите слово из 4 букв: ');
    ReadLn(s)
  until Ord(s[0]) = 4;
  Write('Введите букву: ');
  ReadLn(c);
  for i := 1 to 4 do
    if s[i] = c then
      k := k + 1;
  WriteLn('Буква "', c, '" встречается ', k, ' раз(а)');
  ReadLn
end.

const
  n = 4;
 
var
  s : String[n];
  d : char;
  count : Byte := 0;
  i : Byte;
 
begin
  Write('Input s: '); ReadLn(s);
  Write('Input symbol: '); ReadLn(d);
  for i := 1 to n do
    if (d = s[i]) then
      Inc(count);
  if (count <> 0) then
    WriteLn('count=', count)
  else
    WriteLn('No one');
end.

var a,b,c,d,x:string[1];
S:string[4];
BEGIN
writeln('введите слово из четырех символов');
readln(S);
writeln('введите искомый символ');
readln(x);
a:=copy(S,1,1);
b:=copy(S,2,1);
c:=copy(S,3,1);
d:=copy(S,4,1);
if ((x=a)and(x=b)and(x=c)and(x=d))then begin writeln('символ встречается четыре раза');end else
if ((x=a)and(x=b)and(x=c))or((x=a)and(x=b)and(x=d))or((x=b)and(x=c)and(x=d))or((x=c)and(x=a)and(x=d))then begin writeln('символ встречается три раза');end else
if ((x=a) and (x=b)) or ((x=a) and (x=c)) or ((x=a) and (x=d)) or ((x=b) and (x=c)) or ((x=b) and (x=d)) or ((x=c)and (x=d)) then begin writeln('символ встречается два раза');end else
if (x=a) or (x=b) or (x=c) or (x=d) then begin writeln('символ встречается один раз');end else writeln('символ не встречается')
END.