Вывести 5 первых положительных элементов массива (T10) - Free Pascal (448)

  k:=0;
  for i:=1 to n do
    if a[i]>0 then
      begin
        inc(k);
        write(a[i]:5);
        if k>=5 then
          break;
      end;