Viết trương trình nhập vào xâu S 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 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.

uses crt;
var i:longint;
    s:string;
    tf:boolean;
begin
clrscr;
    readln(s);
    tf:=true;
    for i:=1 to length(s) do
        if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then write(s[i]); 
        if not tf then write('khong co ky tu la chu cai co trong xau');
readln;
end.