sujet 2008 informatique pour bac s

program bac_2008;
uses wincrt ;
var
s,n,j,l : integer ;
ch : string ;
i: char ;
{********************** lire ****************************}
procedure lire( var ch: string);
begin
readln(ch);
end;
{************************** longueur ****************************}
procedure longueur(var l : integer; ch :string);
begin
l:=length(ch);
end;
{************************** traitement *****************************}
procedure traitement(ch:string;l:integer);
var s,n,j : integer;
i:char;
begin

writeln('votre chaine comporte',l,'caractéres dont:');
s:=0;
for i:='A'to 'Z' do
begin

n:=0;

for j:=1 to l do
begin
if upcase(ch[j])=i then
n:=n+1;
end;
s:=s+n;
if n<> 0 then
writeln(n,'fois la lettre',i);
end;


writeln('et',l-s,'caractéres non alphabétiques');
end;

{**************************** principale ****************************}
begin

lire( ch );
longueur(l,ch);


traitement(ch,l);
end.