Ai làm bài tập tin giúp em với: Nhập vào 1 xâu kí tự S từ bàn phím có độ dài không quá 50 kí tự. Đếm xem trong xâu S có bao nhiêu kí tự là chữ in thường , đưa kết quả ra màn hình. Nếu không có thì in ra màn hình dòng thông báo " khong có ki tu nao là chu in thuong co trong xâu"

uses crt;
var s:string[50];
    i,dem:byte;
begin
   clrscr;
   write('Nhap s: '); readln(s);
   for i:=1 to length(s) do
   if ('a'<=s[i]) and ('z'>=s[i]) then inc(dem);
   if dem=0 then write('Khong có ki tu nao là chu in thuong co trong xau');
   write('So ky tu in thuong la: ',dem);
   readln
end.

var s:string;

ch:char;

begin

clrscr;

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

write('Nhap ki tu:'); readln(ch);

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

readln;

end.