Viết ct nhập hai xâu đưa ra kết quả chữ hoa ra màn hình

var s:string;

    i:byte;

begin

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

for i:=1 to length(s) do upcase(s[i]);

write('Xau in hoa la: ',s);

readln

end.

Program BTT;
Uses crt;
Var St1,St2: String;
    i: longint;
Begin
        Clrscr;
        Write('Nhap St1: '); Readln(St1);
        Write('Nhap St2: '); Readln(St2);

        For i:=1 to length(St1) do
                If St1[i] in ['A'..'Z'] then Write(St1[i],' ');
        Writeln;
        For i:=1 to length(St2) do
                If St2[i] in ['A'..'Z'] then Write(St2[i],' ');
        Readln
End.