Не могу найти ошибку.. одномерный массив, убывающая последовательность

[Malloperro]

Дан одномерный массив числовых значений, насчитывающий N элементов. Определить образуют ли элементы массива, расположенные перед первым нулевым элементом убывающую последовательность

program prog1;
const n=10;
var a,b,c,i,k:integer;
begin
for[i]:= 1 to n do
begin
readln(a[i]);
if a[i]=0 then halt;
end;
for i:= 1 to n do
if a[i]=0 then
k:=a[i];
for i:=1 to k do
begin
while i>=2 do
k:=k-1;
if a[k]>a[k-1] then
writeln('true')
else
writeln('false')
end;
end.

[GetMax]

const n=10;
var
  A:Array[1..N] of Integer;
  b,c,i,k:integer;
  Flag:Boolean;
begin
for i:= 1 to n do
begin
Write('Vvedite ',i,' element ');
readln(a[i]);
end;
For i:=1 to N do Write(A[i]:3);
Writeln;
for i:= 1 to n do
if a[i]=0 then
Begin
  k:=i-1;
  Break
End;
Flag:=True;
For i:=1 to K do
For c:=i+1 to K do
If A[i] < A[c] then
Begin
  Flag:=False;
  Break
End;
If Flag then Writeln('Da')
        Else Writeln('Net');
Readln
End.