Thực hiện các thao tác sau a) nhập Xâu S từ bàn phím b) đếm xem trong xâu S có bao nhiêu ký tự c) nhật ký tự từ bàn phím kiểm tra xem ký tự vừa nhập xuất hiện bao nhiêu lần trong xâu S Giúp mình với nhé ???

program vandat;
uses crt;
var s : string; i,d : integer; k : char;
begin    d:=0;
write('Nhap xau S:'); readln(s);
writeln('Do dai xau S la :', length(s));
write('Nhap ki tu :'); readln(k);
for i:=1 to length(s) do if s[i]=k then d:=d+1;
write('So lan xuat hien cua ki tu do trong  la :',d);
readln
end.

program oken;
uses crt;
var s: string;
    i,dem: byte;
    chr: char;
begin
    clrscr;
    write('Nhap xau: '); readln(s);
    for i:=1 to length(s) do
        if (s[i] in ['a'..'z']) then
            dem:=dem+1;
    writeln('So ky tu co trong xau: ',dem);
    write('Nhap 1 ky tu: '); readln(chr);
    dem:=0;
    for i:=1 to length(s) do
        if (s[i]=chr) then
            dem:=dem+1;
    writeln('So lan ky tu ',chr,' co trong xau: ',dem);
    readln;
end.