Из исходного массива вещественных чисел создать массивы из целых и дробных частей этих чисел

var a,c:array[1..100] of real;
    b:array[1..100] of integer;
    n,i:byte;
begin
randomize;
repeat
write('Введите размер массивов от 2 до 100 n=');
readln(n);
until n in [2..100];
//writeln('Масссив вещественных чисел');
for i:=1 to n do
 begin
  a[i]:=random(1000)/100;
  write(a[i]:5:2);
 end;
//writeln;
//writeln('Массив целых частей');
for i:=1 to n do
 begin
  b[i]:=trunc(a[i]);
  write(b[i]:5);
 end;
//writeln;
//writeln('Массив дробных частей');
for i:=1 to n do
 begin
  c[i]:=frac(a[i]);
  write(c[i]:5:2);
 end;
readln
end.

Program Massivi;
uses crt;
var a,c:array[1..100] of real;
b:array[1..100] of integer;
n,i :byte;
Error:integer;
tmp: real;
 
begin
clrscr;
 
repeat
write ('Введите размер массивов от 2 до 100 n=');
readln(n);
until n in [2..100];
writeln;
writeln ('Масссив вещественных чисел:');
for i:=1 to n do
begin
repeat
writeln('a[',i,']=');
{$i-}
readln(tmp);
Error:=IOresult;
{$i+}
if Error<>0 
then Writeln('Error:', Error);
a[i]:=tmp;
Until Error=0;
end;
 
for i:=1 to n do
begin
write(a[i]:5:2, ' ');
end;
 
writeln();
 
writeln;
writeln;
writeln ('Массив целых частей:');
for i:=1 to n do
begin
b[i]:=trunc(a[i]);
write(b[i]:5);
end;
writeln;
writeln;
writeln ('Массив дробных частей:');
for i:=1 to n do
begin
c[i]:=frac(a[i]);
write(c[i]:5:2);
end;
readln
end.

for i:=1 to 5 do
 begin
  repeat
  writeln('a[',i,']=');
  {$i-}
  readln(tmp);
  Error:=IOresult;
  {$i+}
  if Error<>0 then Writeln('Error:', Error);
  until Error=0;
  a[i]:=tmp;
 end;