Как в данной программе использовать указатель на массив записей?

uses crt;
const
n=5;
stag=15;
type
pnt=^z;
z=record
fio:string;
stazh:integer;
ss :pnt;
end;
var
a:array[1..n] of pnt;
i,vtr:integer;
begin
clrscr;
for i:=1 to n do
begin
new(a[i]);
writeln('Свободно ',memAvail,' байтов');
writeln('Введите ФИО ',i,'-го ветерана');
readln(a[i]^.fio);writeln ('Введите стаж ',i,'-го ветерана');
readln(a[i]^.stazh);
end;
for i:=1 downto n-1 do
begin
a[i]^.ss:=a[i];
a[i]:=nil;
end;
for i:=1 to n do
if a[i]^.stazh > stag then
begin
inc(vtr);
a[i]:=a[i]^.ss;
end;
writeln('Число ветеранов , у которых стаж больше 15 равно ',vtr);
for i:=1 to n do
begin
a[i]:=a[1];
a[1]:=a[i]^.ss;
dispose(a[i]);
end;
writeln('Свободно ',memAvail,' байтов');
end.

type
  ...
  PZArr = ^TZArr;
  TZArr = array [1..5] of Z;
var
  a: PZArr;
  i: Integer;
begin
  New(a);
  for i:=1 to 5 do begin
    WriteLn('Введите ФИО ',i,'-го ветерана'); ReadLn(a^[i].fio);
    WriteLn('Введите стаж ',i,'-го ветерана'); ReadLn(a^[i].stazh);
  end;
  ...
  Dispose(a);
end.

const
  n=5; nstazh=15;
type
  Z = record
    fio: String;
    stazh: Integer;
  end;
  PZArr = ^TZArr;
  TZArr = array [1..5] of Z;
var
  a: PZArr;
  i, c: Integer;
begin
  Write('Памяти свободно: ',MemAvail);
  New(a);
  WriteLn('. После выделения памяти свободно: ',MemAvail);
  c:=0;
  for i:=1 to 5 do with a^[i] do begin
    Write('Введите ФИО  ',i,'-го работника: '); ReadLn(fio);
    Write('Введите стаж ',i,'-го работника: '); ReadLn(stazh);
    if stazh > nstazh then Inc(c);
  end;
  WriteLn('Количество ветеранов (стаж > ',nstazh,'): ',c);
  Dispose(a);
  WriteLn('После освобождения памяти свободно: ',MemAvail);
end.

begin
inc(vtr);
a[i]:=a[i]^.ss;
end;

  TZArr = array [1..n] of Z;

  for i:=1 to n do with a^[i] do begin

const
  n=5; nstazh=15;
type
  PWorker = ^TWorker;
  TWorker = record
    fio: String;
    stazh: Integer;
    next: PWorker;
  end;
var
  a, t: PWorker;
  i, c: Integer;
begin
  a:=nil; c:=0;
  WriteLn('Cвободно памяти: ',MemAvail);
  for i:=1 to n do begin
    New(t); WriteLn('Cвободно памяти: ',MemAvail);
    with t^ do begin
      next:=a; a:=t;
      Write('Работник ',i,', ФИО: '); ReadLn(fio);
      Write('стаж: ':17); ReadLn(stazh);
      if stazh > nstazh then Inc(c);
    end;
  end;
  WriteLn('Количество ветеранов (стаж > ',nstazh,'): ',c);
  while a<>nil do begin
    t:=a; a:=a^.next; Dispose(t);
  end;
  WriteLn('Свободно памяти: ',MemAvail);
end.