Телефонная книга. Исправить ошибки, Ввод,поиск,сохранение записей. Опции

[Natalia]

Доброго времени суток! Помогите разобраться с задачей. Всё, что поняла, реализовала в программе.
Задача такая: Составьте программу, реализующую телефонную книгу. Каждая запись в книге включает фамилию, инициалы и три телефона (один домашний и два рабочих). Программа должна обеспечивать ввод и сохранение записей, вывод телефонов по введённой фамилии, а также вывод всех фамилий с указанием инициалов по введённому телефонному номеру.
Но у меня не выходит.

Код

program Telefonnaya_kniga;
uses crt;
const n=10;
type
       book=record
             first_name:string[20];
             inis:string[5];
             telrab1:shortInt;
             telrab2:shortint;
             teldom:shortint;
            end;
       Tel_Book=array[1..n] of book;
       Ffile=file of Tel_Book; {файл для хранения базы}
var f:Ffile;
    b:Tel_Book;
    t,k,tel:shortint;
    i:byte;
    s:string;
begin
  assign(f,'tel_book.txt');
  writeln('Ввод данных-0; поиск-1; сохранение-2; возврат в меню-".."');
  readln(t);
  if t=0 then begin
  append(f);
  writeln('Ввод данных в телефонную книгу:');
  while t<>'..' do
   with b[i] do begin
    write('Фамилия: ');
    readln(first_name);
    write('Инициалы: ');
    readln(inis);
    writeln('Домашний телефон: ');
    readln(teldom);
    writeln('Рабочий телефон 1: ');
    readln(telrab1);
    writeln('Рабочий телефон 2: ');
    readln(telrab2);
    writeln;
   end;
   write(f,b);
   close(f);
  end;
  if t=1 then begin
  reset(f);
  while k<>'..' do
   writeln('Поиск:')
   writeln('по фамилии-0');
   writeln('по телефону-1');
   readln(k);
  if k=0 then begin
   writeln('Введите фамилию');
   readln(s);
    for i:=1 to n do
     if s=b.first_name then writeln(b.first_name,b.inis,b.teldom,b.telrab1,b,telrab2);
    end;
  end;
  if k=1 then begin
   writeln('Введите телефон');
   readln(tel);
    for i:=1 to n do
     if tel=b.teldom then writeln(b.first_name,b.inis,b.teldom,b.telrab1,b,telrab2);
     if tel=b.telrab1 then writeln(b.first_name,b.inis,b.teldom,b.telrab1,b,telrab2);
     if tel=b.telrab2 then writeln(b.first_name,b.inis,b.teldom,b.telrab1,b,telrab2);
    end;
  end;
  close(f);
  end;
  readln;
  end.

И ещё вопрос: какой функцией воспользоваться, чтобы определить количество байтов, записанных в файл? FileSize - мне не помог. Нужна ли тут процедура FilePos?

[Natalia]

Здравствуйте.
Вот новая редакция программы)) Всё, вроде, работает, только одного понять не могу, почему после того, как ввожу данные, в поиске программа их не находит? Подскажите, пожалуйста, что нужно сделать, чтобы программа не вылетала, а корректно просила ещё раз ввести данные, если, к примеру, вместо фамилии ввести телефон и т. п. И ещё: как всё-таки определить количество байт в файле, если тип данных файла неизвестен (Надо делать с модулем crt)? Просто не знаю, что и предположить...

program Telefonnaya_kniga;
uses crt;
type
       book=record
             first_name:string[20];
             inis:string[5];
             telrab1:shortInt;
             telrab2:shortint;
             teldom:shortint;
            end;
       Ffile=file of book; {файл для хранения базы}
var f:Ffile;
    b:book;
    t,k,tel:shortint;
    n,i:integer;
    s:string[20];
    proverka:boolean;
    label menu;
 begin
  assign(f,'tel_book.txt');
  reset(f);
  menu: writeln('Ввод данных-0; поиск-1; выход-2');
  readln(t);
  if t=2 then
   begin
    close(f);
    halt;
   end;
  if t=0 then
   begin
    writeln('Ввод данных в телефонную книгу');
     writeln('Сколько вводить фамилий?');
     readln(n);
   for i:=1 to n do
     begin
      with b do
       begin
        write('Фамилия: ');
        readln(first_name);
        write('Инициалы: ');
        readln(inis);
        writeln('Домашний телефон: ');
        readln(teldom);
        writeln('Рабочий телефон 1: ');
        readln(telrab1);
        writeln('Рабочий телефон 2: ');
        readln(telrab2);
        writeln;
        n:=n-1;
       end;
      goto menu;
    end;
   end;
  if t=1 then
   begin
    writeln('Поиск:');
    writeln('по фамилии-0; по телефону-1; возврат в главное меню-2; выход-3');
    readln(k);
     if k=2 then goto menu;
     if k=3 then halt;
     if k=0 then
      begin
       writeln('Введите фамилию');
       readln(s);
        with b do
         begin
         proverka:=false;
          while not(eof(f)) do
           begin
            if s=first_name then
             begin
              writeln(first_name,inis,teldom,telrab1,telrab2);
              proverka:=true;
             end;
           end;
           if eof(f) and proverka=false then writeln('Такой фамилии нет');
         end;
        goto menu;
       end;
      if k=1 then
       begin
        writeln('Введите телефон');
        readln(tel);
        proverka:=false;
         with b do
          begin
           while not(eof(f)) do
             begin
              if tel=teldom then
               begin
                writeln(first_name,inis,teldom,telrab1,telrab2);
                proverka:=true;
               end;
              if tel=telrab1 then
               begin
                writeln(first_name,inis,teldom,telrab1,telrab2);
                proverka:=true;
               end;
              if tel=telrab2 then
               begin
                writeln(first_name,inis,teldom,telrab1,telrab2);
                proverka:=true;
               end;
             end;
          end;
        if eof(f) and proverka=false then writeln('Такого телефона нет');
        goto menu;
       end;
    end;
  close(f);
  readln;
  end.

Сообщение отредактировано: Natalia - 22.12.2006 20:46