Для каждой строки массива определить номер столбца первый элемент которого не делится на 3 и 5

var a:array[,] of integer;
    m,n,i,j,j1:integer;
begin
randomize;
writeln('Введите размеры массива;');
readln(m,n);
setlength(a,m,n);
writeln('Массив:');
for i:=0 to m-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:4);
   end; 
  writeln;
 end;
writeln('Номера первого элемента, не кратного 3 и 5 в строках') ;
for i:=0 to m-1 do
 begin
  j1:=0;
  j:=0;
  while(j<n)and(j1=0) do
  if a[i,j] mod 15<>0 then j1:=j+1
  else inc(j);
  if j1=0 then writeln('Строка ',i+1,' такого элемента нет')
  else writeln('Строка ',i+1,' Номер первого элемента=',j1);
 end; 
end.

const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,j1:integer;
begin
randomize;
writeln('Введите размеры массива от 2 до ',nmax);
readln(m,n);
writeln('Массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Номера первого элемента, не кратного 3 и 5 в строках') ;
for i:=1 to m do
 begin
  j1:=0;
  j:=1;
  while(j<=n)and(j1=0) do
  if a[i,j] mod 15<>0 then j1:=j
  else inc(j);
  if j1=0 then writeln('Строка ',i,' такого элемента нет')
  else writeln('Строка ',i,' Номер первого элемента=',j1);
 end;
end.

const g=10;
var a:array[1..g,1..g] of integer;
    m,n,i,j,j1:integer;
begin
writeln('Введите размеры массива от 2 до ',g);
readln(m,n);
writeln('Введите элементы массива');
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
writeln('Введенный массив:');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
writeln('Номера первого элемента, не кратного 3 и 5 в строках') ;
for i:=1 to m do
begin
j1:=0;
j:=0;
while(j<=n)and(j1=0) do
if a[i,j] mod 15<>0 then j1:=j
else inc(j);
if j1=0 then writeln('Строка ',i,' такого элемента нет')
else writeln('Строка ',i,' Номер первого элемента=',j1);
end; 
end.