Program w pascalu zliczeniowy

Witam mam problem z napisaniem programu:
Napisz program, który będzie zliczał ile razy dany element (mniejszy od 10) pojawił się w tablicy
n-elementowej (n<100), np. tablica 4,1,5,1,1,6,7,1,7,6,4,8,3,1,3 spowoduje zwrócenie nastepującego
komunikatu:
liczba 4 wystąpiła 2 razy
liczba 1 wystąpiła 5 razy
liczba 5 wystąpiła 1 razy
liczba 6 wystąpiła 2 razy
liczba 7 wystąpiła 3 razy
liczba 8 wystąpiła 1 razy
liczba 3 wystąpiła 2 razy

Postanowiłem użyć 2 tablic
Probowałem napisać program, ktoś mi jeszcze pomagał, ale nadal nie działa:

Na pierwszy rzut oka kod wygląda dobrze, czym się objawia problem? Błąd kompilatora, błąd przy uruchomieniu, czy wypisuje bzdury?

Spróbuj w ten sposób:

Nie jest powiedziane, że w tablicy występują tylko cyfry 0..9, ale nie ma to znaczenia. Przedstawiam krótki kod. Aby nie wpisywać na ekran tablicy 100 elementowej ale pokazać działanie kodu, ograniczyłem wielkość tablicy.

Bardzo dziekuje za pomoc , zadanie rozwiazane