gestione stringhe con copy e ord

program cambio2;
(* gestione stringhe,copy,ord *)
uses crt;
var a1,a2,a3,lettere:integer;
    s,s1,s2,s3:string;

begin
clrscr;
writeln('stringa da analizzare');
s:='ABC';
writeln(s);
writeln('lunghezza stringa');
lettere:=ord(s[0]);
writeln(lettere);
writeln('legge e stampa caratteri consecutivi ');
s1:=copy(s,1,1);
s2:=copy(s,2,1);
s3:=copy(s,3,1);
writeln(s);
writeln(s1);
writeln(s2);
writeln(s3);
writeln('legge e stampa codice per ogni carattere');
a1:=ord(s[1]);
a2:=ord(s[2]);
a3:=ord(s[3]);
writeln(a1);
writeln(a2);
writeln(a3);
readln;
clrscr;
end.

stringa da analizzare
ABC
lunghezza stringa
3
legge e stampa caratteri consecutivi
ABC
A
B
C
legge e stampa codice per ogni carattere
65
66
67

cambio3