Переделать программу в Pascal

[Skipper Ok]

Помогите пожалуйста переделать немного программу: во-первых, чтобы программа запрашивала у пользователя размерность матрицы; во-вторых, чтобы эту часть программы
type

TMatrixRow = array[ 1..100 ] of real;
  TMatrix = array [ 1..100 ] of TMatrixRow;

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

matrix:array[1..100, 1..100] : real;

Вся программа:

program matr;
uses
  crt, math;
const
  N = 3;
  M = 4;
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
  clrscr;
  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.

[SaLoKiN]

во 2-ых

type
  {TMatrixRow = array[ 1..M ] of real;
  TMatrix = array [ 1..N ] of TMatrixRow;}
Tmatrix=array[1..N,1..M] of integer;

во 1-ых

var
  i,row,col: integer;
  matrix:Tmatrix;

begin
   writeln( 'Please enter row and col' );
   read(row,col);
  writeln( 'Please enter a matrix[ ', ROW, 'x', COL, ' ]:' );
  ReadMatrix( matrix, row, col );
  writeln( 'Source matrix:' );
  WriteMatrix( matrix, row, col );
  writeln( 'Result rows...' );

в итоге

program matr;
uses
* crt, math;

const
  N = 3;
  M = 4;
type
  {TMatrixRow = array[ 1..M ] of real;
  TMatrix = array [ 1..N ] of TMatrixRow;}
Tmatrix=array[1..N,1..M] of real;
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 matrix: TMatrix; row,cols: integer );
var
  i: integer;
begin
  for i := 1 to cols - 1 do
    write(matrix[ row ][ i ]: 6: 2, ' ' );
  writeln(matrix[ 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 matrix: TMatrix; row, cols: integer ): boolean;
var
  i: integer;
  scale: real;
  res: boolean;
begin
  if ( cols < 2 ) or ( matrix[ row ][ 1 ] = 0 ) or ( matrix[ row ][ 2 ] = 0 ) then
    res := false
  else if cols < 3 then
    res := true
  else
  begin
    i := 2;
    scale := matrix[ row ] [ i ] / matrix[ row] [ i - 1 ];
    repeat
      inc( i );
      res := ( matrix[ row ][ i - 1] <> 0 ) and ( abs( matrix[ row ][ i ] / matrix[ row ][ i - 1 ] - scale ) < 1e-4 );
    until( not res or ( i >= cols ) );
  end;
  TestRow := res;
end;
var
  i,row,col: integer;
  matrix:Tmatrix;

begin
clrscr;
   writeln( 'Please enter row and col' );
   read(row,col);
  writeln( 'Please enter a matrix[ ', ROW, 'x', COL, ' ]:' );
  ReadMatrix( matrix, row, col );
  writeln( 'Source matrix:' );
  WriteMatrix( matrix, row, col );
  writeln( 'Result rows...' );
  for i := 1 to row do
    if TestRow( matrix, i, col ) then
    begin
      write( 'Row No. ', i, ' :' );
      WriteRow( matrix, i, col );
    end;
end.