program tong_tep;

var s1,s2:string;

   function xau_dai(s1,s2:string):string;

       begin

           if length(S1)>length(S2) then xau_dai:=s1

                                                 else xaudai:=s2;

       end;

BEGIN

        write('Nhap xau thu 1: ');  readln(S1);

        write('Nhap xau thu 2: ');   readln(S2);

        write('Xau dai hon la: ',xau_dai(s1,s2);

        readln;

end.

Kết quả:

Nhap xau thu 1: HOC CHAM CHI

Nhap xau thu 2: THI DIEM CAO

Xau dai hon la:

Sau đó sẽ thực hiện chương trình con xau_dai

length(s1)=12

length(s2)=12

length(s1)>length(s2) là sai nên xau_dai=s2

Như vậy sẽ in xâu s2 ra mà hình là: THI DIEM CAO

Như vậy sau khi thực hiện xong chương trình sẽ cho ra kết quả:

Nhap xau thu 1: HOC CHAM CHI

Nhap xau thu 2: THI DIEM CAO

Xau dai hon la: THI DIEM CAO

program tong_tep;

var s1, s2:string; 

function xau_dai(s1, s2:string):string;

     begin

          if length(s1)>length(s2)

                      then xau_dai:=s1

                     else xau_dai:=s2;

     end;

 

Begin

    write('Nhap xau thu 1: '); 

    readln(S1);

    write('Nhap xau thu 2: ');     

    readln(S2);

    write('Xau dai hon la: ', xau_dai(s1,s2);

    readln

end.