Viết chương trình đưa ra xâu S với các kí tự chữ cái trong xâu đã được chuyển thành chữ cái in hoa

program bienhinh ;

var s: string[200]

    i: byte;

Begin

    Write(‘nhap xau: ‘);

    readln(s);

    for i:=1 to length(s) do

        S[i]:=upcase(s[i]);

    Writeln(s);

    Readln ;

End.

xin hay nhất