utworzyć tablicę liczba całkowitych o rozmiarze 40;
wypełnic tablicę losowymi liczbami z przedziału <0,22>;
wypisać wszystkie elementy tablicy wierszami po 10 elementów;
podać ile razy w tablicy wystapiła liczba 3.
To program ma wykonać, no i napisałem cos takiego.

program tab1;
uses crt;
var
t:array[1 .. 40] of integer;
i:integer;
begin
clrscr;
randomize;
for i:=1 to 40 do
t[i]:=random<23>;
for i:=1 to 10 do write(t[i],' ');
writeln;
for i:=11 to 20 do write(t[i],' ');
writeln;
for i:=21 to 30 do write(t[i],' ');
writeln;
for i:=31 to 40 do write(t[i].' ');
writeln;
max:=t[1];
for i:=1 to 40 do
if t[i]>=:max then max:=t[i];
writeln (max);
min:=t[1];
for i:=1 to 40 do
if t[i]<=min then min:=t[i];
write (min);
readln;
end.

Program nie chce mi się skompilowac nie wiem co dalej robic. Pomożecie?