Viet chương trình nhập vào họ tên sau đó thay phần họ bằng 1 họ mới từ bàn phím.sau đó suất ra màn hình.

Uses crt;

Var st:string;

i,j:longint;

Begin

Clrscr;

Write('nhap ho va ten : ');

Readln(st);

For i:=1 to length(st) do st[i]:=upcase(st[i]);

Writeln(st[i]);

For i:=1 to length(st) do If st[i] in ['A'..'Z','a'..'z'] then j:=j+1;

Writeln('so ki tu co trong ten la : ',j);

Readln;

End.

Áp dụng trong xâu chuẩn

Uses crt;

var s, ho:string; i:integer;

begin

write(‘nhap s: ‘); readln(s);

write(‘nhap ho moi:’); readln(ho);

i:=1;

while i<= length(s) do

if S[i]><‘  ‘ then i:=i+1;

Delete(s,1,i-1);

insert(ho,s,1);

write(‘xau moi khi thay ho la: ‘,s);

readln

end.