База даных

[xakkkkker]

Такая задача была.
Есть файл А1.txt содержащий телефонную базу.
Каждая запись имеет поля фамилия, год установки телефона, номер телефона.
Написать программу выдающую следующую информацию.
1. По ведимой фамилии выдаеться номер абонента.
2. По году выводятся абоненты зарегестрировавшие позднее веденного года.

Program ZADANIE3;
 type 
  TBAZA = record
    SurName:String[30];
    GOD:integer;
    Tel:integer;
  end;
 var
  knopka:char;

 
  Procedure POISK_SurName;
  var
   F:TEXT;
   SurName:String;
   BAZA:TBAZA;
  begin
   Assign(F,'A1.txt');
   Reset(F);
   Writeln('Vedite SurName');
   Readln(SurName);
    While not eof(f) do
	 begin
	  Read(F,BAZA.SurName); Read(F,BAZA.GOD); Read(F,BAZA.Tel); 
	   If  BAZA.SurName=SurName then
	    Writeln(BAZA.SurName,'  ',BAZA.GOD,'  ',BAZA.Tel);
	 end;
	 Close(F);
   end;
   
   Procedure POISK_GOD;
  var
   F:TEXT;
   GOD:integer;
   BAZA:TBAZA;
  begin
   Assign(F,'A1.txt');
   Reset(F);
   Writeln('Vedite GOD');
   Readln(GOD);
    While not eof(f) do
	 begin
	  Read(F,BAZA.SurName); Read(F,BAZA.GOD); Read(F,BAZA.Tel);
	   If BAZA.GOD>GOD then	   
	    Writeln(BAZA.SurName,'  ',BAZA.GOD,'  ',BAZA.Tel);
	 end;
	 Close(F);
   end;
  begin
   Writeln('Dlya poiska po SurName najmite "F"');
   Writeln ('Dlya poiska GODA najmite "G"');
   Readln(knopka);
   Case knopka of
    'F','f': POISK_SurName;
	'G','g': POISK_GOD;
   end;
   
 end.

Вот написал программу. Но она выдает ошибку при чтении из файла.

[Serge_Bliznykov]

xakkkkker, сразу замечание.
в исходном задании дан текстовый файл (A1.txt) или — типизированный?!

2) номер телефона в виде integer - это не совсем корректно... в 99% больше подойдёт текстовое поле, состоящее из цифр.

3) по сути вопроса (ошибка при чтении).
файл текстовый должен СТРОГО соответствовать тому, что Вы пытаетесь из него прочитать!
первые 30 символов в строке - фамилия, потом два числа.
если не так, либо получите мусор, либо ошибку чтения,
плюс надо добавить переход на новую строку.
так:

  while not eof(f) do
  begin
    Read(F, BAZA.SurName);
    Read(F, BAZA.GOD);
    Read(F, BAZA.Tel);
    Readln(F);
    if BAZA.GOD > GOD then
      Writeln(BAZA.SurName, '  ', BAZA.GOD, '  ', BAZA.Tel);
  end;
  Close(F);

ну и прилагаю пример "правильного" (c точки зрения Вашей программы) txt файла....