Viết chương trình con đếm số lần xuất hiện của kí tự x trong sâu S

program Tin_hoc;

uses crt;

 var i,n:integer;

        s:string;

begin

clrscr;

writeln('Nhap xau:');readln(s);

n:=0;

write('Nhap 1 ki tu x: ');readln(x);

for i:= 1 to length(s) do if s[i] = x then inc(n);

writeln('Trong xau s co ',n,' ki tu x');

readln;

end.

program xauS;

uses crt;

var i,n:integer;

      s:string;

begin clrscr;

   writeln('Nhap xau s:'); readln(s);

     n:=0;

   writeln('Nhap ki tu x: ');readln(x);

   for i:=1 to length(s) do

     if s[i]=x then inc(n);

   write('So lan xuat hien ki tu x la: ',n);

readln;

end.

Học tốt!