Viết chương trình nhập vào xấu bất kì từ bàn phím. In ra màn hình các 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 ky tu nao la chu cai co trong xau”

uses crt;
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.

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.