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ữ nguyên thứ tự xuất hiện của chúng và đưa ra kết quả màn hình kết hợp thao tác với tệp

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.

Const Fi='Xau.INP';
      Fo='Xau.OUT';
Var f,g: text;
    S1,S2: String;
    i: longint;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,S1);
        S2:='';
        For i:=1 to length(S1) do
                If (S1[i] in ['A'..'Z']) or (S1[i] in ['a'..'z']) then S2:=S2+S1[i];
        Write(g,'S2 = ',S2);
        Close(f);
        Close(g);
End.