буду премного благодарен ребят.Массивs

[fun of pascal]

познаю паскаль в универе-дается с трудом.Недаются след задачки
Массив вещественных чисел A(N) упорядочен по возрастанию.Известно , что вещественное число x принадлежит отрезку чмсловой оси ,вмещающему заданный массив. Определить номер k, для которого A(k-1)<x<=A(k);


Дано целое число N (>1), а так же первый член А и знаменатель D геометрической прогрессии.Cформировать и вывести массив размера N,содержащий N первых членов данной прогессии:
A, AxD, AxD^2, AxD^3,... .

текст хотя бы одной из порграмм выручит еще одного нерадивого студента.

[DoDge_VipeR]

1)

for i:=1 to n do
(if a[i]<x) and (a[i+1]>x) then begin k:=i;break;end;

2)

write(a:6);
for i:=2 to n do begin
a:=a*d;write(a:6);end;

[briko]

спсибо очень выручил