Запись. Известны фамилии,адреса и телефоны 25-ти человек. Найти фамилии и адреса людей, чей телефон начинается с цифры 3

uses crt;
     data = record
       fam : array [1..25] of string;
       adr : array [1..25] of string;
       num : array [1..25] of string;
     end;
var i,j,n:integer;
    bd:data;
Begin
  ClrScr;
  writeln ('Familiya, adres, nomer');
  for i:=1 to 25 do
    begin
      writeln (i,'): ');
      readln (bd.fam[i]);
      readln (bd.adr[i]);
      repeat
        readln (bd.num[i]);
      until length(bd.num[i])=7;
    end;
  ClrScr;
  writeln;
  for i:=1 to 25 do
  writeln (i,') ',bd.fam[i],', ',bd.adr[i],', ',bd.num[i]);
  for i:=1 to 25 do
      if bd.num[i][1]='3' then writeln (i,') ',bd.fam[i],', ', bd.adr[i]);
  readln;
end.

program telefony;
 
function check_phone(phone: String): Boolean;
var
    err, int: Integer;
begin
    val(phone, int, err);
    if (err = 0) and (length(phone) = 7) then
        check_phone := True
    else if (phone[4] <> '-') or (phone[7] <> '-') then
        check_phone := False
    else
    begin
        delete(phone, 4, 1);
        delete(phone, 6, 1);
        val(phone, int, err);
        if (err = 0) and (length(phone) = 7) then
            check_phone := True
        else
            check_phone := False;
    end;
end;
 
var
    data: array[1..25, 1..3] of String; {Фамилия, потом адрес, потом телефон}
    i: Integer;
    ans: Boolean;
    
begin
    ans := False;
    writeln('Введите информацию о людях (первая строка — фамилия, следующая — адрес, сделующая — телефон, следующая — следующий человек):');
    for i:=1 to 25 do
    begin
        readln(data[i, 1]);
        readln(data[i, 2]);
        readln(data[i, 3]);
    end;
    writeln('');
    
    for i:=1 to 25 do
    begin
        if (data[i, 3, 1] = '3') and (check_phone(data[i, 3]) = True) then
        begin
            if ans = False then
            begin
                ans := True;
                writeln('Вот подходящие люди:')
            end;
            writeln(data[i, 1], ', ', data[i, 2], ', ', data[i, 3]);
        end;
    end;
    if ans = False then
        writeln('Нет таких телефонов');
end.