Циклические алгоритмы

var k:array[1..12]of integer;
    i,n:integer;
begin
for i:=1 to 12 do
read(k[i]);
n:=0;
for i:=1 to 12 do
if k[i]=0 then
begin
   n:=i;
   break;
end;
if n<>0 then writeln('"0" ',n,' по счету!')
else writeln('"0" в массиве отсутствует!');
readln;
end.

const n=12;
var k:array[1..n] of integer;
    i,i1:byte;
begin
writeln('Введите элементы массива:');
i1:=0;
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(k[i]);
  if(i1=0)and(k[i]=0)then i1:=i;
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(k[i],' ');
writeln;
if i1=0 then write('Нет элементов равных 0')
else write('Индекс первого элемента равного 0=',i1);
readln
end.

uses crt;
const n=15;
var x:array[1..n,1..n] of integer;
    i,j:byte;
    s:integer;
begin
clrscr;
writeln('Матрица A:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     x[i,j]:=random(10);
     write(x[i,j]:3);
    end;
   writeln;
 end;
writeln;
s:=0;
for i:=2 to n do
for j:=n-i+2 to n do
s:=s+x[i,j];
write('Сумма ниже побочной диагонали=',s);
readln
end.