Замените все элементы массива на их дробную часть

Сделал как понял:

var i, n:integer;

a:array[1 ... 100] of real;

begin

write ('Write size array: ') ; readln (n) ;

for i:=1 to n do

begin

a[i]:=-20+40*random;

write (a[i]:7:2) ;

end;

writeln;

for i:=1 to n do

begin

a[i]:=frac (a[i]) ;

write (a[i]*100:7:0) ;

end;

end.