a) Phép ghép xâu, kí hiệu là dấu (+), được sử dụng để ghép nhiều xâu thành một. Có thể thực hiện ghép xâu đối với hằng và biến xâu.

Ví dụ:

‘Tin hoc’+ ’11’ sẽ cho xâu có kết quả là ‘Tin hoc 11’.

b) Các phép so sánh như bằng (=), khác (<>), nhỏ hơn (<), … có độ ưu tiên thực hiện thấp hơn ghép xâu.Việc so sánh 2 xâu sẽ thực hiện theo nguyên tắc sau.

Xâu A lớn hơn xâu B nếu như kí tự đầu tiên khác nhau giữa chúng kể từ trái sang trong xâu A có mã ASCII lớn hơn. Nếu độ dài hai xâu khác nhau thì coi như thêm các kí tự đặc biệt (nhỏ hơn tất cả các kí tự trong bảng ASCII).

Ví dụ:

‘Ab’ sẽ nhỏ hơn ‘a’. Vì A có mã ASCII là 65 nhỏ hơn a là 97.

‘a’ sẽ nhỏ hơn ‘aB’ . Khi 2 xâu độ dài không bằng nhau ta thêm kí tự đặc biệt nhỏ hơn mọi kí tự trong bảng ASCII (dĩ nhiên sẽ nhỏ hơn B ).

c) Các thủ tục khác.

   + delete(st, vt, n) xóa n kí tự của xâu st từ vị trí vt.

   +insert(st, s2, vt) chèn xâu s1 vào s2 bắt đầu ở vị trí vt.

   +copy(S, vt, N); Tạo xâu gồm N kí tự liên tiếp bắt đầu từ vị trí vt của xâu S.

   +length(s) cho giá trị là độ dài xâu s.

   +pos(s1, s2) cho vị trí xuất hiện đầu tiên của xâu s1 trong xâu s2.

   +upcase(ch) cho chữ cái in hoa ứng với chữ cái trong ch.

3. Một số ví dụ

uses crt;
var C : array [97 .. 122] of byte;
    S : string;
    i, j : byte;
    
begin
clrscr;
readln(S);
j := 0;

for i := 1 to length(S) do
    begin
        S[i] := lowercase(S[i]);
        j := ord(S[i]);
        C[j] := C[j] + 1;
    end;

j := 0;
for i := 97 to 122 do
    if C[i] >= 2 then inc(j);
    
write(j);
readln
end.