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

[Skipper Ok]

Задача такая - нужно написать программу на языке Паскаль для матрицы размером N на M, которая выводит на экране ту строку матрицы, элементы которых образуют геометрическую прогрессию... размер двумерной матрицы запрашивается у пользователя...
Мои наработки:

Program 1p2;
var
n, m : integer;
matrix : array[1..n, 1..m] of integer;
procedure init;
var
i, j : integer;
begin
writeln('Enter the dimensions of matrix:' );
readln(n,m);
check(m); check(n);
for i:=1 to n do begin
writeln('Enter the', i, 'row of matrix: ' );
for j:=1 to m do
read(matrix[i,j]);
end;
end; 
procedure .....

Дальше уже зацикливаюсь, не могу никак придумать процедуру, условие для проверки каждой строки на геометрическую прогрессию..ю

[SecretSilent]

При геометрической прогрессии, деля 2 элемент на 1 и 3 на 2, получаешь одно и то же значение. Следовательно, вам надо прочесать ваш массив по строкам до первого такого несовпадения.

[Poma][a]

См. оратора выше..
пробегаемся по всем строкам и уже для них..

for i := 1 to m-2 do
    if a[j][i] / a[j][i+1] <> a[j][i+1] / a[j][i+2] then Break; // Еще, наверное, стоит использовать флажок.. и уже смотреть, выводим ли мы эту строку или нет..

matrix : array[1..n, 1..m] of integer;

Г.п. бывает убывает, и может уйти в просторы, стремящиеся к 0 => лучше real..

Т.к. у нас Real, то мы должны правильно сравнить!

[Skipper Ok]

программу написал с горе пополам, собирая частички из разных программ, условие правильное, все правильно работает, но что поменять в программе, чтобы она у меня запрашивала размерность? И как вот это

type
  TMatrixRow = array[ 1..M ] of real;
  TMatrix = array [ 1..N ] of TMatrixRow;

переделать под вид этого

matrix:array[1..100, 1..100] of integer;

program matr;
const
  N = 3;
  M = 3;
type
  TMatrixRow = array[ 1..M ] of real;
  TMatrix = array [ 1..N ] of TMatrixRow;
procedure ReadMatrix( var matrix: TMatrix; rows, cols: integer );
var
  i, j: integer;
begin
  for i := 1 to rows do
  begin
    for j := 1 to cols - 1 do
      read( matrix[ i ][ j ] );
    readln( matrix[ i ][ cols ] );
  end;
end;
procedure WriteRow( var row: TMatrixRow; cols: integer );
var
  i: integer;
begin
  for i := 1 to cols - 1 do
    write( row[ i ]: 6: 2, ' ' );
  writeln( row[ cols ]: 6: 2 );
end;
procedure WriteMatrix( var matrix: TMatrix; rows, cols: integer );
var
  i: integer;
begin
  for i := 1 to rows do
    WriteRow( matrix[ i ], cols );
end;
function TestRow( var row: TMatrixRow; cols: integer ): boolean;
var
  i: integer;
  scale: real;
  res: boolean;
begin
  if ( cols < 2 ) or ( row[ 1 ] = 0 ) or ( row[ 2 ] = 0 ) then
    res := false
  else if cols < 3 then
    res := true
  else
  begin
    i := 2;
    scale := row[ i ] / row[ i - 1 ];
    repeat
      inc( i );
      res := ( row[ i - 1] <> 0 ) and ( abs( row[ i ] / row[ i - 1 ] - scale ) < 1e-4 );
    until( not res or ( i >= cols ) );
  end;
  TestRow := res;
end;
var
  i: integer;
  matrix: TMatrix;
begin

  writeln( 'Please enter a matrix[ ', N, 'x', M, ' ]:' );
  ReadMatrix( matrix, N, M );
  writeln( 'Source matrix:' );
  WriteMatrix( matrix, N, M );
  writeln( 'Result rows...' );
  for i := 1 to N do
    if TestRow( matrix[ i ], M ) then
    begin
      write( 'Row No. ', i, ' :' );
      WriteRow( matrix[ i ], M );
    end;
end.

[Poma][a]

Сделать матрицу SIZE на SIZE..
Читать 2 числа N и M.. в остальном всё будет так же..