здравствуйте, помогите плиз, умоляю!!! дан массив из 20 целых чисел, все его элементы разделить на первый элемент.

var a:array [1..100] of real;i,n:integer;

t:real;Begin  randomize;  n:=20;  for i:= 1 to n do begin    a[i]:=random(n*10)- 10*n div 2 ;    write(a[i]:4);    if i mod 10=0 then writeln;  end; 

  t:=a[1]

  for i:= 1 to n do begin    a[i]:=a[i]/t ;    write(a[i]:4);    if i mod 10=0 then writeln;  end; End.