Viết chương trình nhập vào 2 xâu kí tự đưa ra màn hình xâu có độ dài ngắn hơn, nếu bằng nhau thì đưa ra xâu nhập trước

Program Hotboy;

Uses crt;

var H1,H2:string;

begin

clrscr;

Writeln('Nhap xau dau');

Readln(H1);

Writeln('Nhap xau sau');

Readln(H2);

If length(H1) <  length(H2) then Writeln('Xau co do dai ngan  hon la',H1);

If length(H1) > length(H2) then Writeln('Xau co do dai ngan hon la:',H2);

If length(H1) = length(H2) then Writeln('Xau co do dai ngan hon la:',H1);

Readln

End.

program tin_hoc;

uses crt;

var s1,s2:string;

begin

clrscr;

writeln('Nhap xau thu nhat:');readln(s1);

writeln('Nhap xau thu hai:');readln(s2);

if length(s1) > length(s2) then writeln('Xau co do dai lon hon la:',s1);

if length(s1) < length(s2) then writeln('Xau co do dai lon hon la:',s2);

if length(s1) = length(s2) then writeln('Xau co do dai lon hon la:',s1);

readln;

end.