Доработать программу, которая ищет количество не парных чисел в каждой строке матрицы

const m=3; n=3;
type mas=array[1..m,1..n] of integer;
procedure poisk(a:mas; i:integer);
var j,k,r:integer;
begin
     k:=0;
     for j:=1 to n do
         for r:=1 to n do
             if (a[i,j]=a[i,r]) and (j<>r) then begin inc(k); exit; end;
     writeln(k);
end;
var a:mas;
    i,j:integer;
 
begin
     writeln('Массив:');
     for i:=1 to m do
     begin
          for j:=1 to n do
          begin
               a[i,j]:=random(10)+1;
               write(a[i,j]:4);
          end;
          writeln;
     end;
     for i:=1 to m do
     begin
          writeln('Строка ',i,':');
          poisk(a,i);
     end;
end.

uses crt;
const m=4; n=6;
type mas=array[1..m,1..n] of integer;
procedure poisk(a:mas; i:integer; var k:integer);//передадим значение k в программу
var j,r:integer;
begin
k:=0;
for j:=1 to n do
for r:=1 to n do
if (a[i,j]=a[i,r]) and (j<>r) then
 begin
  inc(k);
  break//зачем exit?
 end;
writeln(k);
end;
var a:mas;
    i,j,k:integer;
begin
writeln('Ìàññèâ:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10)+1;
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to m do
 begin
  writeln('Ñòðîêà ',i,':');
  poisk(a,i,k);
 end;
end.

uses crt;
const m=4; n=10;
type mas=array[1..m,1..n] of integer;
procedure poisk(a:mas);
var i,j,r,p,k:integer;
begin
for i:=1 to m do
 begin
  k:=0;
  for j:=1 to n do
   begin
    p:=0;
    r:=1;
    while(r<=n)and(p=0) do
    if (a[i,j]=a[i,r]) and (j<>r) then p:=1
    else inc(r);
    if p=0 then inc(k)
   end;
  writeln('В строке ',i,' не повторяются ',k,' элементов')
 end
end;
var a:mas;
    i,j:integer;
begin
writeln('Массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10)+1;
    write(a[i,j]:3);
   end;
  writeln;
 end;
poisk(a);
end.