Водномерном массиве попарно размещены на первом месте значение аргумента. на втором-значение функции.напечатать эти значения так,в первом столбике-аргумент,во втором,функция

Генерирую массив потом вывожу в столбики,n-константа которую ты выбираешь внезависимости от размера желаемого массива 

program Project2;
 {$APPTYPE CONSOLE}
uses  SysUtils; 
const n=7;
var a:array [0..n] of integer; 
 i:integer;
begin 
 randomize;
 for i:=0 to n do 
a[i]:=Random(100); 
 Writeln('X  F(X)');
 for i:=0 to n do
 begin 
if i mod 2 <> 0 then Continue; 
 write(a[i],'  ',a[i+1]); 
Writeln;
 end;
 readln;
end.