Найти фамилии и адреса людей, чей телефон начинается с цифры 3

  for e in a do with e do if Copy(Phone,1,1)='3' then WriteLn(Name,' ',Address);

type
  Number =
  record
    Fam, Adr, Nom: string;    
  end;
 
var
  a: array of Number;
  n, i: integer;
  s: string;
 
begin
  
  writeln('Введите кол-во записей: ');
  readln(n);
  
  SetLength(a, n);  
  
  i := 0;
  repeat
    writeln('Введите фамилию: ');
    readln(a[i].Fam);
    writeln('Введите адрес: ');
    readln(a[i].Adr);
    writeln('Введите номер телефона: ');
    readln(a[i].Nom);
    inc(i);
    writeln('Будете еще вводить данные?(Да-Нет)');
    readln(s);
  until s <> 'Да'; 
  
  
  for i := 0 to n - 1 do
  begin
    if a[i].Nom[1] = '3'
      then writeln(a[i].Fam, ' ', a[i].Adr);
  end;
  
end.

    Write('Будете еще вводить данные? (Да/нет)');
    readln(s);
  until (s <> 'Да') and (s <> '');