Nhập vào 1 xâu .Đưa ra màn hình xâu là chữ in hoa

uses crt;

var s,ih: string;

i: byte;

begin

clrscr;

write (‘nhap xau: ‘);  readln (s);

for i:=1 to length(s) do

if upcase(s[i])=s[i] then ih:=ih+s[i];

writeln (‘xau la ki tu in hoa co trong xau vua nhap la: ‘);

for i:=1 to length(ih) do write (ih[i]);

readln;

end.

xin hay nhất !!!