Nhập xâu s1,s2 1. Tính chiều dài xâu s1,s2 in ra màn hình 2. In ra màn hình xâu s1,s2 . 3. Nối 2 xâu 4. Tìm xâu dài nhất 5. In ra màn hình xâu đảo ngược s1,s2. 6. In ra màn hình xâu in hoa của s1,s2 7. Tìm kí tự A có trong xâu s1 hay không 8. Chèn xâu s1 và xâu s2 ở vị trí k với k nhập vào từ bàn phím.

program Xau;
uses crt;
var  s1,s2,s3,s4,s5,s6,d,s: string;
     i,dem: integer;
begin
      clrscr;
      write('Nhap xau s1: ');readln(s1);
      write('Nhap xau s2: ');readln(s2);
         s:=s1 + s2;
  
     
      writeln('Chieu dai xau s1 la: ',length(s1));
      writeln('Chieu dai xau s2 la: ',length(s2));
      writeln('Xau s1 la: ',s1);
      writeln('Xau s2 la: ',s2);
      writeln('Noi hai xau: ',s);
         If length(s1) > length(s2) then writeln('Xau dai nhat la s1') else
           writeln('Xau dai nhat la s2');
         for i:=length(s1) downto 1 do
            s3:= s3 + s1[i];
         for i:=length(s2) downto 1 do
            s4:= s4 + s2[i];
      writeln('Xau s1 dao nguoc: ',s3);
      writeln('Xau s2 dao nguoc: ',s4);
         for i:=1 to length(s1) do
                begin
             d:=upcase(s1[i]);
             s5:= s5 + d;
                end;
      writeln('Xau s1 in hoa: ',s5);
         for i:=1 to length(s2) do
                begin
             d:=upcase(s2[i]);
             s6:= s6 + d;
                end;
      writeln('Xau s2 in hoa: ',s6);
         for i:=1 to length(s1) do
            If s1[i] = 'A' then dem:=dem+1;
        If dem <> 0 then write('Co ki tu A trong xau s1') else
          write('Khong co ki tu A trong xau s1');
  readln;
end.