viết chương trình nhập vào chuỗi S a)Đếm xem trong chuỗi có bao nhiêu kí tự b)xuất ra chuỗi đảo c)xóa kí tự trắng dư thừa trong xâu d) đếm các chữ số trong xâu mong các bạn giúp mình với.
Mình cảm thấy hơi mắc kẹt và không chắc làm thế nào để tiếp tục làm câu hỏi này. Ai có thể giành chút thời gian để giúp mình với được không?

uses crt;

var s:string;

i,d,dem:integer;

begin 

clrscr;

write('Nhap chuoi S:'); readln(s);

d:=length(s);

writeln('Trong chuoi ',s,' co ',d,' ki tu');

writeln('Chuoi dao cua chuoi ',s,' la: ');

for i:=d downto 1 do 

  write(s[i]:4);

writeln;

dem:=0;

for i:=1 to d do 

  if s[i] in ['0'..'9'] then inc(dem);

writeln('So chu so trong xau la: ',dem);

readln;

end.