дан массив из N целочисленных частей. отыскать наибольшее количество попорядку идущих

PascalABC.NET 3.4

begin
  var n := ReadInteger('n=');
  var a := ArrRandom(n, 0, 2); a.Println;
  var (k, km) := (0, 0);
  for var i := 0 to n-1 do
    if a[i] = 0 then
      if k = 0 then k := 1
      else k += 1
    else
      begin
      if k gt; km then km := k;
      k := 0
      end;
  Writeln('Наибольшее количество нулей попорядку одинаково ',km)  
end.