Помогите пожалуйста! Матрицы... Паскаль... Геометрическая прогрессия

[Skipper Ok]

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

[BDA]

Наработки?

Можно проверить строку так:

i := 1;
f := true;
while f and (i <= n - 2) do
begin
  f := (abs(a[k, i] * a[k, i + 1] * a[k, i + 2]) > 0.0001) and (abs(a[k, i + 1] / a[k, i] - a[k, i + 2] / a[k, i + 1]) < 0.0001);
  inc(i);
end;
if f then
begin
  result := k;
  exit;
end;

Где n - количество элементов в строке,
k - номер текущей рассматриваемой строки

Осталось обернуть эти строчки кода в цикл, цикл в функцию, и решить, что возвращать при отсутствии таких строк. Такая функция будет возвращать номер строки для вывода.