Текстовые файлы и записи

Const
  Num = 3;
 
Var
  Adress : Array[1..Num] Of String;
  Surname : Array[1..Num] Of String;
  Search : String;
  f : Text;
  i : Integer;
  
Begin
  // Ввод данных в массив
  For i := 1 To Num Do
    Begin
      Write('Введите ', i, '-й адрес: ');
      ReadLn(Adress[i]);
      
      Write('Введите фамилию: ');
      ReadLn(Surname[i]);
      
      WriteLn;
    End;
    
  Assign(f, 'Data.txt');
  Append(f);
  
  For i := 1 To Num Do Begin
    WriteLn(f, Adress[i]);
    WriteLn(f, Surname[i]);
  End;
  
  Close(f);
  
  WriteLn('Поиск по фамилии.');
  Write('Введите фамилию: ');
  ReadLn(Search);
  
  
End.

const fName = 'text.txt';
 
type
  tSubject = record
    Name, Addr : String;
    
    constructor;
    begin
      Name := ReadLnString('Введите фамилию:');
      Addr := ReadLnString('  Введите адрес:');
    end;
    
    constructor (s : String);
    begin
      var t := s.Replace('{','').ToWords('}');
      if t.Count > 0 then Name := t[0];
      if t.Count > 1 then Addr := t[1];
    end;
    
    function toString := '{' + Name + '}{' + Addr + '}';
    
    procedure Print;
    begin
      WriteLnFormat('{0,-20} | {1}', Name, Addr);
    end;
  end;
  
procedure Input;
begin
  var NewText := True;
  if System.IO.File.Exists(fName) then
    begin
      WriteLn('Файл ' + fName + ' уже существует.');
      WriteLn('Варианты действия: 1 - чтобы дополнить, 9 - чтобы создать заново, иначе - не изменять.');
      var Res := ReadLnString('Введите вариант:').Trim;
      if Res.Length = 0 then Exit;
      case Res[1] of
        '1' : NewText := False;
        '9' : begin end;
      else
        Exit;
      end;
    end;
  var theEnd := False; var txt : Text;
  repeat
    var Subject := New tSubject;
    if NewText then Rewrite(txt,fName) else Append(txt,fName);
    WriteLn(txt, Subject.ToString);
    Close(txt);
    NewText := False;
    WriteLn('Варианты действия: 1 - чтобы дополнить, иначе - прекратить.');
    var Res := ReadLnString('Введите вариант:').Trim;
    if Res.Length = 0 then theEnd := True else theEnd := Res[1] <> '1';
  until theEnd;
end;  
 
procedure Find;
begin
  WriteLn('Варианты действия: 1 - искать по фамилии, 2 - чтобы искать по адресу.');
  var Res := ReadLnString('Введите вариант:').Trim;
  if Res.Length = 0 then Exit;
  case Res[1] of
    '1' : begin
            var Name := ReadLnString('Введите фамилию для поиска:').ToUpper;
            foreach var s in ReadLines(fName) do
              begin
                var Subject := New tSubject(s);
                if Subject.Name.ToUpper = Name then Subject.Print;
              end;
          end;
    '2' : begin
            var Addr := ReadLnString('Введите адрес для поиска:').ToUpper;
            foreach var s in ReadLines(fName) do
              begin
                var Subject := New tSubject(s);
                if Subject.Addr.ToUpper = Addr then Subject.Print;
              end;
          end;
  else
    Exit;
  end;
  
end;
 
begin
  Input;
  Find;
end.