VIẾT HOA XÂU SỬ DỤNG CHƯƠNG TRÌNH CON

program bai1;
var   S :string;
function inhoa(xau: string) : string;
var i : byte;
    inhoa1 :string;
begin
inhoa1:='';
For i:= 1 to length(xau) do  inhoa1:=inhoa1+upcase(xau[i]);
inhoa:=inhoa1;
end;
begin
Write('Nhap xau : ');readln(S);
Write(inhoa(S));
readln
end.