Viết chương trình nhập vào từ bàn phím xâu kí tự S1 tạo xâu S2 gồm tất cả các chữ cái có trong xâu S1 giữu nguyên thứ tự xuất hiện của chúng và đưa ra kết quả màn hình

program Min;
uses crt;
var s1,s2:string;
 i:integer;
begin
 clrscr;
 write('Nhap xau: '); readln(s1);
 s2:='';
 for i:=1 to length(s1) do
 if ('a'<=s1[i]) and ('z'>=s1[i]) then s2:=s2+s1[i];
 writeln;
 write(s2);
 readln
end.

Bạn tham khảo nha :D 

uses crt;

var s1, s2 : string; i : byte;

begin

clrscr;

write('Nhap xau s1 : '); readln(s1);

s2 := ''; i := 1;

while i <= length(s1) do

begin

if s1[i] in ['A' .. 'Z'] then s2 := s2 + s1[i];

if s1[i] in ['a' .. 'z'] then s2 := s2 + s1[i];

i := i + 1;

end;

write('Xau s2 : ', s2);

readln

end.