Найти координаты (номера) первого элемента, равного нулю.

var a:array[1..20,1..20] of integer;
    n,m,i,j,k,i1,j1:integer;
begin
repeat
write('Введите количество строк от 2 до 20 m=');
readln(m);
until m in [2..20];
repeat
write('Введите количество столбцов от 2 до 20 n=');
readln(n);
until n in [2..20];
k:=0;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(20);
if a[i,j]=0 then k:=1;
if k=0 then
 begin
  i:=1+random(m);
  j:=1+random(n);
  a[i,j]:=0;
 end;
writeln('Массив А');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
i1:=0;
j1:=0;
i:=1;
while(i<=m)and(i1=0) do
 begin
  j:=1;
  while(j<=n)and(i1=0) do
  if a[i,j]=0 then
   begin
    i1:=i;
    j1:=j;
   end
  else inc(j);
  if i1=0 then inc(i);
 end;
writeln('Координаты первого нулевого элемента [',i1,',',j1,']');
end.

Var a:array[1..6,1..6] of integer; i,j,k:integer;
begin
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
if a[j,j]=0 then begin write(a[i,j]:2);break; end;
end;
end;
end.

const n=6;
var a:array[1..n,1..n] of integer;
    i,j,k:integer;
begin
randomize;
k:=0;
for i:=1 to n do
 begin
  for j:=1 to 6 do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
k:=0;
for i:=1 to n do
for j:=1 to n do
if (a[i,j]=0)and(k=0) then
 begin
  write('Строка=',i,' столбец=',j);
  k:=1;
 end;
end.

var a:array[1..100] of integer; i,x,n,j,k:integer;
begin
write('размер массива до:');
readln(n);
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:4);
end;
writeln;
i:=2;
while i<=n do
begin
for j:=i to n-1 do
a[j]:=a[j+1];
n:=n-1;
i:=i+1;
end;
writeln('минус вторые:');
for i:=1 to n do
write(a[i]:4);
end.

var a,b:array [1..12] of integer;i,h,p:integer;
begin
for i:=1 to 12 do
a[i]:=i;
h:=12;
p:=1;
for i:=1 to 12 do
if i mod 2 = 0 then
begin
b[i]:=a[h]; 
h:=h-1;
end
else begin
b[i]:=a[p];
p:=p+1;
end;
for i:=1 to 12 do
write(b[i]:4,' ');
//for i:=12 downto 1 do
//write(b[i],' ');
end.