thủ tục nhập vào một xâu:
procedure nhap;
var s: string;
begin
write ('nhap xau: '); readln (s);
end;
hàm chuyển xâu chữ thường thành chữ in hoa
function cd(s: string): string;
i: byte;
begin
for i:=1 to length(s) do cd:=cd+upcase(s[i]);
end;
thủ tục và hàm chuyển xâu chữ thường thành chữ in hoa
procedure CD;
var s1,s2: string;
i: byte;
begin
for i:=1 to length(s1) do
s2:=s2+upcase(s1[i]);
end;