viết chương trình nhập vào bàn phím 2 xâu a,b.thực hiện so sánh 2 xâu và thông báo kết quả so sánh đó lên màn hình (dùng ngôn ngữ pascal)

uses crt;

var x1,x2: string;

i1,i2,d1,d2: integer;

begin

clrscr;

write('Nhap xau 1: '); readln(x1);

write('Nhap xau 2: '); readln(x2);

for i1:=1 to length(x1) do d1:=d1+1;

for i2:=1 to length(x2) do d2:=d2+1;

if d1>d2 then writeln('Xau 1 dai hon xau 2') else if d1<d2 then writeln('Xau 1 ngan hon xau 2') else writeln('Xau 1 bang xau 2');

readln

end.