Написать программу, которая выводит на экран в виде двух столбцов значения аргумента и значения функции, которые хранятся в заданном одномерном массиве в следующем порядке: первые n элементов содержат значения аргумента, остальные — соответствующие значения функции — Pascal(Паскаль)

uses crt;
const max=100;
var a:array[1..max] of real;
    n,i,j:integer;
begin
clrscr;
repeat
write('Размер половины массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to 2*n do
if i<=n then a[i]:=i
else a[i]:=sin(i-n);
writeln('  x    sin(x)');
for i:=1 to n do
writeln(a[i]:5:2,'  ',a[i+n]:5:2);
readln
end.