Здравствуйте, помогите плиз, умоляю! Дан массив из 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.