Написать программу для проверки работы функции

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n = 10;
type
  ssylka = ^integer;
  vektor = array[1..n] of ssylka;
 
function zer(x:vektor):ssylka;
var
  i : Integer;
begin
  result:=Nil;
  for i:=low(x) to high(x) do
  if x[i]^=0 then
  begin
    result:=x[i];
    break;
  end;
end;
 
var
  i : integer;
  a : vektor;
  t : ssylka;
begin
  //Создадим массив...
  Randomize;
  for i:=1 to n do
  begin
    New(a[i]); //Выделяем память под переменную
    a[i]^:=Random(11)-5;
    writeLn(integer(a[i]):8,a[i]^:4); //на экран...
  end;
  writeLn;
 
  t:=zer(a);
  if t<>Nil Then
  //Результат на экран...
  writeLn('Rezultat: ',integer(t):8,t^:2) else
  writeLn('Rezultat: Nil');
 
  for i:=1 to n do //Освободим память...
  Dispose(a[i]);
 
  readLn;
end.

    strngrd1.Cells[0,i]:='$'+IntToHex(Integer(a[i]),8); //Ссылка
...
  Edt11.Text:='$'+IntToHex(Integer(t),8) else

        strngrd1.Cells[0,i]:=IntToStr(Integer(a[i])); //Ссылка
...
  Edt11.Text:=IntToStr(Integer(t)) else