Free Pascal-ban egy olyan programot szeretnék írni ami egy bekért szöveg összes benne lévő karakterről kiírja, hogy mennyi található benne hogyan lehetséges?

Ez elég messze van eddig a feladattól , sőt csodálkoznék ha lefordulna.

Ha az összes karaktert szeretnéd számolni, akkor legalább annyi számláló kell, ahány karakter van.

Ékezetes karaktereket és egyéb írásjeleket nem kezel, csak az angol abc betűit.

program charcount;

{$mode objfpc}{$H+}

const

abc_nagy: string=('ABCDEFGHIJKLMNOPQRSTUVWXYZ');

var

CharDB: array of integer;

Szoveg: string;

i,j,hossz: integer;

c: char;

begin

writeln('Kerek valami szoveget:');

readln(Szoveg);

hossz:=Length(Szoveg);

SetLength(CharDB,Length(abc_nagy));

for i:=0 to Length(abc_nagy)-1 do

CharDB[i]:=0;

for i:=1 to hossz do

begin

c:=Upcase(Szoveg[i]);

for j:=0 to Length(abc_nagy)-1 do

begin

if abc_nagy[j+1]=c then inc(CharDB[j]);

end;

end;

for i:=0 to Length(abc_nagy)-1 do

if CharDB[i]<>0 then

Writeln(abc_nagy[i+1],' = ',CharDB[i]);

end.

Igen, de hogy más is értse a Pascal alapú nyelvekben a stringek karaktereinek 'tényleges' indexe 1-től kezdődik. A 0-ás index a string hosszát tartalmazza.

uno20001 első mintájában azért szerepelt az 'L' betű mivel az volt az s string nulladik eleme, a kódtábla szerinti értéke 76, vagyis ennyi karakterből áll a string.