Problème de random qui donne des valeurs injustes

Bonjour,
Je vous présente un script pascal qui m'a rendu bouche bée.
Il consiste à remplir un tableau par n entiers <100 aléatoirement.
Le problème c'est que les valeurs rendus par cette fonction sont illogiques.
de plus même en supprimant l'instruction d'affectation, le tableau garde les mêmes valeurs dedans...
Merci beaucoup d'avance pour votre aide.

SCRIPT:

program tri;
uses wincrt;
type tab=array[5..20] of integer;
var
t:tab;
n:integer;
 procedure saisie(var t:tab ; var n: integer);
var i: integer ;
begin
repeat write('n=') ; readln(n);
until n in [5..20] ;
for i:=1 to n do
  t[i]:=(random(100));
    end;
procedure afficher(t:tab ; n :integer) ;
var
i: integer;
begin
for i:=1 to n do
writeLN('t[',i,']',t[i])
end;
begin
randomize;
saisie(t,n);
afficher(t,n);
end.