Найти номер первого нулевого элемента массива — Pascal(Паскаль)

const N=5;
var
   a:array[1..N] of integer;
   i, K, m: byte; 
begin
   K:=0; m:=0;
    For i:=1 to N do
    begin
          Read (a[i]);
    IF a[i]=0 then begin
               K:=K+1;
               IF K=1 THEN
                m:=i
               end;
          end;
IF m>0 then
write ('m=' , m) ;
END.