-> Đây là đoạn code tìm từ cuối cùng của xâu nhập vào.

Ví dụ:

- Nhập vào: hello cac ban

- Xuất ra: ban

*Giải thích code:

uses crt; → {khai báo thư viện}

.... {chắc bạn biết rồi}

begin

  write('nhap ho ten');   →{ màn hình in ra dòng chữ "nhap ho ten"}

  read(s);  → {nhập xâu s}

  i := length(s);  → {gán i là độ dài của xâu s hay chỉ số cuối của xâu s.}

  while (s[i] <> ' ') do

      begin 

           dec(i);  -> {giảm i 1 đơn vị}

           if s[i] = ' ' then → {Nếu s[i] là kí tự trắng thì, đây chính là kí tự trắng ngăn cách giữa từ kế cuối và từ cuối.}

               for j := i + 1 to length(s) do write(s[j]);  → {chạy j từ vị trí i + 1 -> cuối xâu và in từng s[j], chính là in những kí tự của từ cuối cùng trong xâu s}

           end;

  readln;

  End.