Programme avec pascal

Bonjour,
Bonjour,
je voulais remplir un tableau de 5 à 100 éléments et afficher le maximum de l'élément du tableau
voila j'ai essayé mais ça n'a pas marché (c'est un programme avec pascal)
program somme_maximum;
uses wincrt;
type tab=array [5..100]of integer;
var S,M,n:integer;
t:tab;
procedure saisie_t(VAR t:tab;n:integer);
var i:integer;
begin
for i:=1to n do
write('donner un élément');
readln( t[i]);
end;
function saisie_n:integer;
var x:integer;
begin
repeat
write('donner un entier');
readln (x);
until x in [5..100];
saisie_n:=x;
end;
procedure calcul(var S,M:integer);
var i:integer;
begin
S:=0;M:=t[i];

for i:=1to n do;
S:=s+t[i];

if t[i]>M
then M:=t[i];

end;
end.