Viết chương trình nhập vào một xâu ký tự từ bàn phím và in ra màn hình số lần xuất hiện của một kí tự bất kì. Mong được giúp đỡ vì em cần gấp ạk

program bai_giai;
uses crt;
var s:string;
    c:char;
    i,d:byte;
begin
    clrscr;
    write('Nhap xau: ');  readln(s);
    write('Nhap ki tu bat ki: ');  readln(c);
    d:=0;
    for i:=1 to length(s) do
        if s[i]=c then d:=d+1;
    write(c,' : ',d);
    readln;
end.

Uses Crt;

Var St:String;

dem: Array[‘A’..’Z’] Of Byte;

i:Byte;

ch:Char;

Begin

Write(‘Nhap xau St: ‘); Readln(St);

{Khởi tạo mảng}

For ch:=’A’ To ‘Z’ Do dem[ch]:=0;

{Duyệt xâu}

For i:=1 To Length(St) Do

If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);

{Liệt kê các ký tự ra màn hình}

For ch:=’A’ To ‘Z’ Do

If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);

Readln;

End.