Nhập vào hai chuỗi a,b.Chuỗi nào có nhiều kí tự chữ cái hơn thì in ra màn hình chuỗi đó

*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.