Безотлагательно!! ПОМОГИТЕ!!задачка по паскалю15 случайных чисел [13;72]- все числа стоящие на

Var
i:integer;
a: array[1..15] of integer;
begin   
randomize;   
for i := 1 to 15 do
begin       
a[i] := random (60) + 13;       
write (a[i]:5)   
end;   
for i := 1 to 15 do
begin       
 if ((i mod 2) = 0) and ((a[i] mod 5) = 0) then         
a[i] := 0       
 else     
  if ((i mod 2) lt;gt; 0) and ((a[i] mod 3 )= 0) then         
  a[i] := -1       
else       
 a[i] := 1;       
end;   
for i := 1 to 15 do       
 write (a[i]:5);
readln;
end.