*So sánh 2 chuỗi

program chuoi;

uses crt;

var a,b:string;

begin

      clrscr;

      write('Nhap chuoi a: ');  readln(a);

      write('Nhap chuoi b: ');  readln(b);

      if length(a)>length(b) then write(a) 

            else if length(a)<length(b) then write(b)

            else write('Hai chuoi bang nhau');

      readln;

end.

*So sánh chữ cái của 2 chuỗi

program chuoi_chu_cai;

uses crt;

var a,b,ca,cb:string;

      i:byte;

begin

      clrscr;

      write('Nhap chuoi a: ');  readln(a);

      write('Nhap chuoi b: ');  readln(b);

      ca:='';  

      for i:=1 to length(a) do

           if (a[i] in ['a'..'z']) or (a[i] in ['A'..'Z']) then ca:=ca+a[i];

      cb:='';  

      for i:=1 to length(b) do

           if (b[i] in ['a'..'z']) or (b[i] in ['A'..'Z']) then cb:=cb+b[i];

      if length(ca)>length(cb) then write(a) 

            else if length(a)<length(b) then write(b)

            else write('Hai chuoi co so luong chu cai bang nhau');

      readln;

end.

uses crt;
var a,b:string;
begin
       clrscr;
       write('Nhap xau a: '); readln(a);
       write('Nhap xau b: '); readln(b);
       writeln('So ky tu o xau a: ',length(a));
       writeln('So ky tu o xau b: ',length(b));
       if length(a)>length(b) then write('Xau co ky tu nhieu hon la xau a')
       else write('Xau co ky tu nhieu hon la xau b');
       readln;
end.