сформировать массив состоящий из вещественных элементов

Program Name;
var 
a:array[1..n] of real;
b:array[1..n]of integer;
i:integer;
begin
Randomize;
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do
b[i]:=Round(a[i]);
end

Program Name;
var 
a:array[1..500] of real;
b:array[1..500] of integer;
i,n:integer;
begin
Randomize;
writeln('Введите количество элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
b[i]:=Round(a[i]);
write(b[i],' ');
end;
end.

program mas;
uses crt;
const N=20;
var
 a: array [1..N] of real;
 b: array [1..N] of integer;
i : integer;
begin
clrscr;
randomize;
for i:= 1 to N do
begin
A[i]:=random (10);
write (A[i],' ');
end;
writeln;
writeln ('массив с целыми элементами');
for i:=1 to N do
b[i]:=Round(a[i]);
write (b[i],' ');
readkey;
end.

program mas;
const N=20;
var
a: array [1..N] of real;
b: array [1..N] of integer;
i : integer;
begin
randomize;
for i:= 1 to N do
begin
A[i]:=random (10);
write(A[i]:3:1,' ');
end;
writeln;
writeln ('ìàññèâ ñ öåëûìè ýëåìåíòàìè');
for i:=1 to N do
begin
b[i]:=Round(a[i]);
write (b[i],' ');
end;
end.

program Dekio;
const
n=20;
var
a:array[1..n] of real;
b:array[1..n] of integer;
i :integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(100);
b[i]:=Round(a[i]);
writeln(a[i]:5:1,b[i]:3);
end;
end.

write (b[i],' ');

writeln(a[i]:5:1,b[i]:3);