Hàm function:

program xau_hoa;

uses crt;

var s:string;

{---Chuong-trinh-con---}

function hoa(st:string):string;

var i:byte;

begin

       hoa:='';

       for i:=1 to length(st) do

              hoa:=hoa+upcase(st[i]);

end;

{---Chuong-trinh-chinh---}

begin

       clrscr;

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

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

       readln;

end.

Thủ tục procedure:

program xau_hoa;

uses crt;

var s:string;

{---Chuong-trinh-con---}

procedure hoa(st:string);

var i:byte;

begin

       for i:=1 to length(st) do

              write(upcase(st[i]));

end;

{---Chuong-trinh-chinh---}

begin

       clrscr;

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

       write('Xau hoa la: ');

       hoa(s);

       readln;

end.

var s: string;

Procedure xuLy;

    Var i: byte;

    Begin

        For i:=1 to length(s) do

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

    End;

Begin

     Write('nhap xau: '); readln(s);

     XuLy;

     Write(s);

     Readln

End.