Массив ссылок на строки

[sw47]

Задача:
Создать одномерный массив ссылок на строки. Разместить в динамической памя-ти строки. Из подпрограммы-процедуры вернуть указатель на строку, первая буква которой «A». Вывести на экран эту строку. Если такой строки нет, то вернуть из процедуры поиска NIL.
Решение
У меня в процедуру передается и возвращается массив указателей, хотя в задании сказано вернуть указатель на строку, типа один. Я это сделал, так как если будет найдено несколько строк, то в указатель запишется только последняя найденная строка. Так допустимо или надо как-то по-другому сделать?

program 55;
type
 at=array [1..100] of ^string;
var
 c:at;
 chk:boolean;
 n:integer;
 a:at;
 i:integer;
 s:string;
 s1:string[1];


Procedure Search (b:at; var c:at);
begin
 for i:=1 to n do
 begin
  s1:=b[i]^;
  if (s1='A') or (s1='А') then
   begin
    c[i]:=b[i];
   end
   else c[i]:=nil
 end;
end;

begin
 Write('Введите размер массива*: ');
 ReadLn(n);
 WriteLn('Введите строку: ');
 for i:=1 to n do
 begin
  new(a[i]);
  readln(s);
  a[i]^:=s;
 end;
 Writeln('Вывод массива строк: ');
 for i:=1 to n do
 writeln(a[i]^);

 writeln('Начало поиска строки первая буква которой "A"');
 Search(a,c);
 chk:=true;
 for i:=1 to n do
 begin
  if c[i]<> nil then
  begin
  writeln(c[i]^);
  chk:=false;
  end;
 end;
 if chk=true then writeln('Нет такой строки');
 readln;
end.

[New man]

procedure Search(out p:pointer;stroki:at; Size:integer;);
var i:integer;
begin
   p:=nil;
   for i:= 1 to Size do
      if stroki[i]<>nil then
        if stroki[i]^[1]='A' then
         begin
            p:=stroki[i];
             exit;
          end;
end;

[Stilet]

at=array [1..100] of ^string;

Извините что влезаю в тему, а в чем прикол такого "указательства"?
Может тады проще работать со списками?
Или задавать динмассив через GetMem.