BT xâu kí tự

1. VCT nhập 2 xâu từ bàn phím là tên của 2 người và đưa ra màn hình xâu dài hơn, nếu bằng nhau thì đưa ra xâu thứ hai.
program xau_1;
var a,b:string;
begin
write(`nhap ho ten thu nhat:`);readln(a);
write(`nhap ho ten thu hai:`);readln(b);
if length(a)>length(b) then write(a)
else write(b);
readln;
end.
2. VCT nhập hai xâu từ bàn phím và kiểm tra kí tự đầu tiên của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không.
program xau_2;
var a,b:string; x:byte;
begin
write(`nhap xau thu nhat:`);readln(a);
write(`nhap xau thu hai:`);readln(b);
x:=length(b);
if a[1]=b[x] then write(`trung nhau`)
else write(`khac nhau`);
readln;
end.
3. VCT nhập hai xâu từ bàn phím và kiểm tra kí tự đầu tiên của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không.
program xau_3;
var a,b:string; x:byte;
begin
write(`nhap xau thu nhat:`);readln(a);
write(`nhap xau thu hai:`);readln(b);
x:=length(a);
if b[1]=a[x] then write(`trung nhau`)
else write(`khac nhau`);
readln;
end.
4. VCT nhập 1 xâu từ bàn phím và đưa ra màn hình xâu đó nhưng được viết theo thứ tự ngược lại.
program xau_4;
var a:string; i,k:byte;
begin
write(`nhap xau: `);readln(a);
k:=length(a);
for i:=k downto 1 do write(a[i]);
readln;
end.
5. VCT nhập 1 xâu từ bàn phím và đưa ra màn hình xâu mới giống như xâu cũ nhưng đã loại bỏ các dấu cách.
Vd: nguyen hong anh ( nguyenhonganh
program xau_5;
var a,b:string; i,k:byte;
begin
write(`nhap xau: `);readln(a);
k:=length(a);
b:=` `;
for i:=1 to k do
if a[i]<>` ` then b:=b+a[i];
write(`xau moi la: `, b);
readln;
end.


6. VCT nhập 1 xâu từ bàn phím. Thay thế tất cả các cụm kí tự “anh” bằng cụm kí tự “em”.
var s:string; i:byte;
begin
write(`nhap xau: `);readln(s);
if length(s)=3 then
if s=`anh` then s:=`em`;
if length(s)>3 then
for i:=1 to length(s)-2 do
if s[i]+s[i+1]+s[i+2]=`anh` then
begin
delete(s,i,3);
insert(`em`,s,i);
end;
write(`xau da thay the la: `,s);
readln;
end.

7. VCT nhập 1 xâu từ bàn phím. Đếm từng kt có trong xâu (kể cả kí tự trắng)
program ki_tu;
var s:string;
solan:array[0..255] of integer;
i:byte;
begin
write(`nhap S: `);readln(S);
for i:=1 to length(S) do
inc(solan[ord(S[i])]);
for i:=0 to 255 do
if solan[i]>0 then
begin
writeln(chr(i),` co `,solan[i],` ki tu`);
end;
readln;
end.
8. Nhập một chuỗi kí tự. Đổi chuỗi này thành chữ in hoa

var s:string; i:integer;
begin
write(`nhap xau: `);readln(s);
for i:=1 to length(s) do s[i]:=upcase(s[i]);
writeln(s);
readln;
end.
9. Nhập một chuỗi kí tự. Đổi chuỗi này thành chữ
var s:string; i:integer;
begin
write(`nhap xau: `);readln(s);
for i:=1 to length(s) do
if (s[i]>=`A`) and (s[i]<=`Z`) then s[i]:=chr(ord(s[i])+32);