Работа с массивом: n на n !

[Angst]

Код нужен в консольном приложении под Дельфи 7, начало ниже. Если можно, то немного комментариев.

Дана целочисленная матрица {Aij}i=1...n;j=1..n , n<=100. Если в матрице есть два одинаковых столбца и есть хотя бы один элемент, абсолютная величина которого - простое число, упорядочить строки матрицы по неубыванию суммы модулей элементов. Использовать процедуры и функции!

program lab15;

{$APPTYPE CONSOLE}

uses
SysUtils;

{Для ввода матрицы через random}

Const Nmax=100;
type Tmass=array[1..Nmax]of integer;
Tmatr=array[1..Nmax]of Tmass;
var n,m,min,imin:integer;
a:Tmatr;
b:Tmass;
procedure Input;
var i,j:integer;
begin
write('n=');readln(n);
write('m=');readln(m);
writeln('Ishodnaja matrica');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100)-40;
write(a[i,j]:4);
end;
writeln;
end;
readln;
end;

{Ниже нужны функции и процедуры}

begin
{Основной код}
Input;
end.

[north]

Вот код(вроде работает правильно.):
program lab15;

{$APPTYPE CONSOLE}
{uses   SysUtils;  }
Const
  Nmax=5;
  b:array[1..25]of integer=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97);
Var
  a:array[1..nmax,1..nmax]of integer;
  c:array[1..nmax]of integer;
  n,m:integer;
  t1,t2:boolean;
procedure vvod;
var i,j:integer;
begin
  assign(input,'input.txt');
  reset(input);
  n:=5;
  m:=5;
  for i:=1 to n do begin
  for j:=1 to m do read(a[i,j]);
  readln
  end;
  close(input);
end;

function srav(m1,m2:integer):boolean;
var i:integer;
begin
srav:=true;
for i:=1 to n do if a[i,m1]<>a[i,m2] then
    begin
        srav:=false;
        break;
    end;
end;

function poisk(n1:integer):boolean;
var i:integer;
begin
poisk:=false;
  for i:=1 to 26 do  if abs(n1)=b[i] then{если абсолютная величина это не модуль числя, тогда 
abs(n1) нужно заменить}
  begin
      poisk:=true;
      break;
  end;
end;

procedure perem(n1,n2:integer);
var i,j,x:integer;
begin
  for i:=1 to m do
  begin
      x:=a[n1,i];
      a[n1,i]:=a[n2,i];
      a[n2,i]:=x;
  end;
end;
  
procedure psort;
var i,j,x:integer;
begin
  for i:=1 to m-1 do
  for j:=i+1 to m do if c[i]>c[j] then begin
  perem(i,j);
  x:=c[i];
  c[i]:=c[j];
  c[j]:=x;
  end;
end;

procedure sort;
var i,j,s:integer;
begin
  for i:=1 to n do
  begin
      s:=0;
      for j:=1 to m do s:=s+abs(a[i,j]);
      c[i]:=s;
  end;
  psort;

  end;

procedure resh;
var i,j:integer;
begin
  t1:=false;
  t2:=false;
  for i:=1 to m do
  for j:=1 to m do
  begin
      if srav(i,j)=true then t1:=true;
      if t1=true then break;
  end;
  for i:=1 to n do
  for j:=1 to m do
  begin
      if poisk(a[i,j])=true then t2:=true;
      if t2=true then break;
  end;
  if (t1=true)and(t2=true) then sort;
end;

procedure vivod;
var
  i,j:integer;
begin
  assign(output,'output.txt');
  rewrite(output);
  for i:=1 to n do
  begin
      for j:=1 to m do write(a[i,j],' ');
      writeln;
  end;
  close(output);
end;

begin
vvod;
resh;
vivod;
end.