Frage zu Pascal Würfeln

Hallo ich schreibe morgen eine Klausur über Pascal, nur leider weiß ich nicht wie man folgendes programmiert:

Ein Würfel würfelt 100 mal(also Random und Array)
das Programm muss dann ausgeben wie oft die 6 auftaucht.

Also wer etwas Ahnung von Pascal hat(wirklich pascal nicht delphi)den würde ich bitten mir ein tipp zugeben.

Also ich hab folgendes geschrieben, klappt aber nicht und komm immer auf 0.

Also wenn das jemand ganz leicht findet muss er wissen das ich nicht sonderlich gut bin.

Program sortieren;
Uses CRT;

VAR hilfe,k,i :INTEGER;
feld:array[1..100] OF INTEGER;


BEGIN
hilfe:= 0;
RANDOMIZE;
CLRSCR;
WRITELN('Gewürfelte Zahlen');
FOR i := 1 TO 100 DO
feld := random(6)+1;
FOR i := 1 TO 100 DO
WRITE(feld:8);
READ(feld);
IF feld= 6 THEN hilfe:= hilfe+1;
WRITE('du hast' ,hilfe,'x die 6 gewürfelt');
READ(i);
END.