Элементы одномерного массива С(T) получаются расчетом по формуле С(T)= sqrt(T)* tg(2T), где T- позиция элемента в массиве С(T). Определите, какая раз-ность двух соседних элементов в этом массиве (1-ый и 2-ой, 2-ой и 3-ий, 3-ий и 4-ый и т.д.) будет являться наименьшей. Сформируйте новый массив T(Y), состоящий из разностей пар элементов массива С(Т).
у меня есть начало,но я незнаю что делать дальше
Program massiv;
Const N=10;
Var Rmin: real;
I,j,i:integer;
T,C:array[1..N] of real; 
Begin 
For i:=1 to N do 
Begin
C[i]:=sqrt(i)* sin(2*i)/cos(2*i);
Write (C[i]:5:2, ‘ ‘);
End;
Rmin:=C[1]-C[2];
J:=1;
For i:=2 toN-1 do 
If Rmin>C[i]-C[i+1] then begin 
Rmin:=C[i]-C[i+1];
l:=i;