Viết chương trình nhập vào xâu S bất kì từ bàn phím .in ra màm hình chữ cái có trong xâu , nếu không có thì in ra màn hình dòng thông báo 'khong co ki tu nao la chu cai trong xau'. Giải giúp em với ạ đang cần gấp Em cảm ơn ạ

uses crt;
var s:string; i:byte;
begin
   clrscr;
   write('Nhap xau: '); readln(s);
   for i:=1 to length(s) do
   if (s[i]>='A') and (s[i]<='z') then write(s[i]);
   readln
end.

var s:string;
    i:byte;
    v:boolean;
begin
   clrscr;
   write(‘Nhap xau: ‘); readln(s);
   for i:=1 to length(s) do
   if (‘A'<=s[i]) and (‘z’>=s[i]) then
   begin
      write(S[i]);
      v:=true;
   end;
   if v<>true then write(‘Khong co ky tu la chu cai co trong xau’);
   readln
end.