Prosze O Pomoc...turbo Pascal

[kolor23]

Witam. Mam taki kod (z tego forum :) ) i potrzebuje go tak zoptymalizować aby tylko liczył litery

w podanym mu wyrazie.Mam nadzieje ze znajdzie sie ktoś chętny do pomocy.

Dzięki.

 

uses crt;

var

slowo:string;

l,dl,i,j:byte;

 

begin

clrscr;

readln(slowo);

dl:=length(slowo);

writeln('dlogosc slowa: ',dl);

 

for i:=dl downto 1 do begin

for j:=1 to dl do begin

if slowo=slowo[j] then

inc(l);

end;

writeln(slowo,' - ',l);

l:=0;

end;

readln;

end.

[cyrkiel]

uses crt;var slowo:string;i, l:byte;beginl:=0;clrscr;readln(slowo);for i:=1 to length(slowo) doif upcase(slowo[i]) in ['A'..'Z'] then inc(l);writeln('ilosc liter: ',l);readln;end.

[SGJ]

A do czego Ci ta petla potrzebna?

[kolor23]

Dzięki wielke.Już myślałem ze nie znajde pomocy...a jednak :)

"A do czego Ci ta petla potrzebna?" Jak zwykle w takich postach :) zadanie.