[Pascal] zliczanie znaków

[exE]

Witam, mam do napisania program który zlicza litery które poda użytkownik, zrobiłem taki kod:

Kod: Zaznacz cały

program znaki;
uses crt;
var s,i,n,d:integer; k:char; tab: array [1..100] of char; tab2: array[1..100] of integer;
begin
        repeat
        writeln('Podaj ciag znakow N');
        readln(n);
        until (n>0) and (n<101);
        for i:=1 to N do
        begin
                writeln('Podaj litere');
                readln(tab[i]);
                end;
                for k:='a' to 'z' do
                begin
                        for i:=1 to N do
                        if tab[i]=k then
                        s:=s+1;
                        writeln('Ilosc znakow ' ,k, ' to ' ,s);
                        end;
                readkey;
end.


Program źle niestety zlicza, wydaje mi sie, ze tu powinna byc zastosowana tablica lecz nie wiem jak. Z gory dzieki za pomoc.

[mir]

ja nie rozumiem, na czym de'facto polega zadanie.
Wystarczy inkrementować przecież licznik, równolegle z instrukcją readln([tab[i]); counter = counter + 1;
gdzie counter jest integerem, początkowo z zerowanym.

[voluu]

Nawet countera zerować nie trzeba - Pascal domyślnie zeruje zmienne.
W każdym innym cywilizowanym programie trzeba zerować zmienne.