Найти количество строк (столбцов), похожих на первую (последнюю) строку (столбец)

uses crt;
const m=10; {размеры матрицы}
      n=8;
type Tmn=set of byte; {тип множества}
     Tmatr=array[1..m,1..n]of byte;  {тип матрицы}
procedure MnStr(x:byte;mt:Tmatr;var mn:Tmn); {создание множества в строках}
var i:byte;
begin
mn:=[]; {сначала множество пустое}
for i:=1 to n do  {идем по строке}
if not (mt[x,i] in mn) then mn:=mn+[mt[x,i]]; {если числа еще нет в множестве, добавляем}
end;
procedure MnStb(x:byte;mt:Tmatr;var mn:Tmn);{тоже по столбцам}
var i:byte;
begin
mn:=[];
for i:=1 to m do
if not (mt[i,x] in mn) then mn:=mn+[mt[i,x]];
end;
var mz:set of byte; {раздел переменных программы}
    a:Tmatr; {матрица}
    i,j,k1,kp:integer;{счетчики строк, столбцов, совпадений}
    m1,mp,mi:Tmn; {множества: первое, последнее и текущее}
begin
clrscr;
randomize;
writeln('Matrica:');
for i:=1 to m do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(4);
        write(a[i,j]:3);
      end;
    writeln;
  end;
writeln('Stroki:');
k1:=-1;kp:=-1; {начало берем -1, чтобы вычесть сразу первое и последнее множества}
MnStr(1,a,m1); {создаем множество первой строки}
MnStr(m,a,mp);  {создаем множество последней строки}
for i:=1 to m do
  begin
    MnStr(i,a,mi); {создаем текущее множество}
    if mi=m1 then inc(k1);{если совпадает с первым}
    if mi=mp then inc(kp);  {если совпадает с последним}
  end;
writeln('Pohozih na 1=',k1); {выводим результат по строкам}
writeln('Pohozih na ',m,'=',kp);
writeln('Stolbcy:');  {все тоже самое по столбцам}
k1:=-1;kp:=-1;
MnStb(1,a,m1);
MnStb(n,a,mp);
for i:=1 to n do
  begin
    MnStb(i,a,mi);
    if mi=m1 then inc(k1);
    if mi=mp then inc(kp);
  end;
writeln('Pohozih na 1=',k1);
writeln('Pohozih na ',n,'=',kp);
readln
end.

uses crt;
const m=4;
      n=6;
var a:array[1..m,1..n] of real;
    i,j:integer;
    max:real;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');
for i:=1 to m do
   begin
     for j:=1 to n do
       begin
        a[i,j]:=10*random-5;
        write(a[i,j]:7:2);
       end;
     writeln;
   end;
writeln('Rezultat:');
for i:=1 to m do
  begin
    max:=abs(a[i,1]);
    for j:=1 to n do
    if abs(a[i,j])> max then {находим максимальный в строке}
    max:=abs(a[i,j]);
    for j:=1 to n do
      begin
       a[i,j]:=a[i,j]/max; {делим все на максимальный}
       write(a[i,j]:7:2); {выводим строку}
      end;
    writeln;
  end;
readln
end.