Описать функцию zero1(x), значением которой является первый из элементов вектора x, ссылающихс на число 0

[polarity]

type ref = ^integer;
vector = array[1..17] of ref;
Описать функцию zero1(x), значением которой является первый из элементов вектора x, ссылающихс на число 0, или nil, если таких элементов нет.
помогите кто-нибудь

[p51x]

function zero1(x:vector):ref;

[polarity]

это понятно...
а полный код?)

[p51x]

Вы не можете напиать простейший фор?

[polarity]

program six;
{ type ref = ^integer;
 vector = array[1..17] of ref;
 6) Описать функцию zero1(x), значением которой является
     первый из элементов вектора x, ссылающихся на число 0,
     или nil, если таких элементов нет.}

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const n=17;
Type Ref = ^Integer;
     Vector=array[1..n] of Ref;

Var x:Vector;
    i:Integer;

Procedure InPut(Var x:Vector);
begin
  For i:=1 to n do
  begin
    New(x[i]);
    x[i]^:=Random(10)+1;
  end;
end;

Procedure OutPut(x:Vector);
begin
  For i:=1 to n do
  If x[i]<>Nil Then WriteLn(x[i]^)
  else WriteLn('Nil');
end;

Function Zero(x:Vector):integer;
var r:integer;
    b:boolean;
begin
  r:=0;
  For i:=1 to n do
  If x[i]^=0 Then
  begin
  r:=i;
    b:=True;
    Break;
  end;
  if r=0 then r:=x[1]^;
  Zero:=r;
end;

Begin
  Randomize;
  InPut(x);
  OutPut(x);
  WriteLn;
  WriteLn('Result : ',Zero(x));
  ReadLn;
End.

Была какая-то наработка, но я наверно смысл задания не понял... поэтому написал здесь