Паскаль.Необходимо написать программку, которая высчитывает среднею температуру, наивысшую и

Паскаль.
Необходимо написать программу, которая высчитывает среднею температуру, наивысшую и наименьшую температуру за месяц.
Вот, пробовал написать сам, не выходит:
program PoGoda;
uses crt;
var
x, n, t : integer;
max, min, imax, imin : integer;
const z=5;
begin
for x := 0 to z do;
x :=1;
while (x lt; z+1)do
begin Создаем массив
while (x gt; z) do
writeln;
write ('Какая температура была в ');
write ( x);
write (' денек? ');
readln (t);
inc (x);
end;
max:= t[x];
for x:=0 to z do
if max begin
max:=t;
imax:=x
end
else
if mingt;t then
begin
min:=t;
imin:=x
end;
writeln;
writeln('Наибольшее значение ',max);
writeln('В какой денек месяца было наибольшее значение ',imax);
writeln('Малое значение ',min);
writeln('В какой денек месяца было малое значение ',imin);


readkey;
end.