viết chương trình có sử dụng chương trình con nhập một xâu bất kì đổi xâu này thành xâu viết hoa

program in_hoa;

uses crt;

var s:string;

{—Chuong-trinh-con—}

function inhoa(s:string):string;

var i:byte;

begin

       for i:=1 to length(s) do

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

end;

{—Chuong-trinh-chinh—}

BEGIN

       clrscr;

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

       write(‘Xau in hoa la: ‘,inhoa(s));

       readln;

end.