Логическая функция

uses crt;
type
mass = array [1..100,1..100] of integer;
Var
 a:mass; i,j,n,m:integer;
 Function prov ( a:mass; i,j:integer): boolean;
 Var k:integer; b:real;
 Begin
 prov:=true;
 b:=a[i,j]/a[i+1,j];
 For k:= i to j-1 do
 If a[k,j]/a[k+1,j] <> b then prov:=false;
 end;
 Begin
 
 Readln(n,m);
 For i:= 1 to n do
 begin
 For j := 1 to n do
 Write( random(20)+10, ' ');
 writeln;
 end;
Readln(i,j);
Writeln(prov(a,i,j));
end.

const 
  nmax=50;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
var
  a:Tmatrix;
  i,j,m,n,k:integer;
function isGp(const x:Tmatrix;n_st,f,g:integer):boolean;
var
  i:integer;
  q:real;
  c:boolean;
begin
  q:=x[f+1,n_st]/x[f,n_st];
  i:=f+1;
  c:=true;
  while c and (i<=g) do
    begin
      if x[i,n_st]<>x[i-1,n_st]*q then
        c:=false;
      inc(i);
    end;
  isGp:=c;
end;
begin
  repeat
    write('Kolichestvo strok v matritse, ne bolee ',nmax,':');
    readln(n);
    write('Kolichestvo stolbtsov v matritse, ne bolee ',nmax,':');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  randomize;
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=random(50);
        write(a[i,j]:4);
        if j=m then
          writeln;
      end;
  writeln;
  repeat
    write('Nomer stolbtsa:');
    readln(k);
  until k in [1..m];
  repeat
    write('Nomera i,j (i < j) =');
    readln(i,j);
  until (i in [1..n]) and (j in [1..n]) and (i<j);
  writeln(isGp(a,k,i,j));
end.