Нахождение первого и последнего положительного элемента массива. Найдите ошибку

c:=0; k:=0;
 x:=false;
 for i:=1 to n do
 begin
  if (m[i]>0) and x=false then
  begin
   c:=i;
   x:=true;
   writeln ('c',c:5); {это добавил с целью отладки}
  end else
  if (m[i]>0) and x=true then
   k:=i;
   writeln ('k',k:5);
 end;

const
  LIM=10; W=4; n=8;
var
  m: array [1..n] of integer;
  i, c, k: integer;
  x: boolean;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to n do begin
    m[i]:=Random(2*LIM)-LIM; Write(m[i]:W);
  end; WriteLn;
  c:=0; k:=0; x:=false;
  for i:=1 to n do
    if (m[i]>0) and not x then begin
      c:=i; x:=true;
    end else if (m[i]>0) and x then k:=i;
  WriteLn('Положительные: первый m[',c,'], последний m[',k,'].');
end.

const
  LIM=10; W=4; n=8;
var
  a: array [1..n] of integer;
  i, i1, i2: integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to n do begin
    a[i]:=Random(2*LIM)-LIM; Write(a[i]:W);
  end; WriteLn;
  i1:=0; i2:=0;
  for i:=1 to n do
    if a[i]>0 then begin i1:=i; break; end;
  for i:=n downto 1 do
    if a[i]>0 then begin i2:=i; break; end;
  if i1=0 then
    WriteLn('Положительных нет.')
  else
    WriteLn('Положительные: первый a[',i1,'], последний a[',i2,'].');
end.

const
  LIM=10; W=4; n=8;
var
  a: array [1..n] of integer;
  i: integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to n do begin
    a[i]:=Random(2*LIM)-LIM; Write(a[i]:W);
  end; WriteLn;
  for i:=1 to n do
    if a[i]>0 then begin WriteLn('Первое положительное по индексу ',i); break; end;
  for i:=n downto 1 do
    if a[i]>0 then begin WriteLn('Последнее положительное по индексу ',i); break; end;
end.