Помогите отладить программу.

[Викдон]

что именно пишет? номер ошибки?

[TheKnyazz]

Да я понимаю...у меня просто паскаль абц... и он не хочет почему-то понимать...
ммм, то есть работает?))

[TheKnyazz]

Ну он пишет неизвестная переменная. И на этом всё.

[Викдон]

номер ошибки?

[Викдон]

какой компилятор?

[TheKnyazz]

uses crt;
  type 
    Note=record
       First_Last_name:string[20];
       Phone_number:string[14];
        B_date:record
           year:string[4];
           month:string[8];
           day:string[2];
          end;
          end;
 Var   tab_file: file of Note;
        f1,f2:Note;
        Tab:array[1..50] of note;
        i:integer;

Procedure create_file;
 begin
    seek(tab_file,FileSize(tab_file));
   Writeln('vvedite svedenia');
   writeln('esli hotite viyti napejatayte *');
    while true do
      begin
         write ('vvedite familiu i Ima');
         readln(f1.First_Last_name);
         if f1.First_Last_name='*' then break;
            write ('vvedite nomer telefona v mejdunarondom formate +38(cod)nomer');
            readln(f1.Phone_number);
            write('vvedite god rojdenia');
            readln(f1.b_date.year);
            writeln('vvedite mesiac rojdenia');
            readln(f1.b_date.month);
            writeln('vvedite den rojdenia');
            readln(f1.b_date.day);
         write(tab_file,f1);
    end
 end;
 
 Procedure Sort_tab;
 var i,j:integer;
 begin
 seek(tab_file,0);
   for i:=filesize(tab_file)-1 downto 1 do
   for j:=1 to i-1 do
      begin
       seek(tab_file,j);
       read(tab_file,f1,f2);
       if f1.b_date.year > f2.b_date.year
        Then
          begin 
          seek(tab_file,j);
          write(tab,f2.b_date.year,f1.b_date.year);
         end
    end
end;
 
 Procedure print_file;
 begin
 seek(tab_file,0);
 writeln('Familiya ima':20,'nomer telefona':14,'data rojdeniya':30);
 while not eof (tab_file) do 
 begin
 read(tab_file,f1);
 writeln(f1.First_Last_name:20,f1.Phone_number:14,f1.b_date.year,f1.b_date.month,f1.b_date.day);
 end;
 readln;
 end;
 
 procedure Search;
 var found:boolean;
     S:string[15];
     f_person:integer;
 
 begin
 f_person:=0;
 while true do
 begin
   writeln('vvedite nomer ili *');
   readln(s);
   if s='*' then break;
   found:=false;
   seek(tab_file,0);
   
     while not eof(tab_file) and not Found do
       begin
       read(tab_file,f1);
       if pos(s,f1.phone_number)<>0 then
       begin 
       writeln(f1.First_Last_name:20,f1.Phone_number:14,f1.b_date.year,f1.b_date.month,f1.b_date.day);
       found:=true;
       end;
       readln;
    end;
    end;
       if not Found then 
             Writeln('takix net'); 
             readln;
   end;
  
  begin
 
 Assign (tab_file,'d:\gogi.txt');
 reset(tab_file);
         
  
  while true do
  begin
  clrScr;
  writeln('1 sozdanie file');
  writeln('2 sortirovka file');
  writeln('3 vyvod soderjimogo');
  writeln('4 poisk po telefonu');
  writeln('5 exit');
  writeln('-------------------');
  writeln('vvedyte nomer punkta menu');
  readln(i);
  case i of
      1:create_file;
      2:Sort_tab;
      3:print_file;
      4:Search;
      5:exit;
  end
  end;
  end.

вот после небольших преобразовний, что у меня получилось, работает, но к сожалению без замечательного отключения ошибок(

[TheKnyazz]

компилятор Pascal Abc .net, к сожалению, ничего другого не могу использовать, так как остальное х64 система не поддерживает((

[Викдон]

у меня на это write(tab,f2.b_date.year,f1.b_date. year);
ругается)) по идее в типиз файл можно записывать тока записи а не поля)

[TheKnyazz]

стоп, там все правильно, просто я немного криворукий должно быть так
(tab_file,f2.b_date.year,f1.b_date. year);

[TheKnyazz]

хотя и правда ругается, но в учебнике написано в примере так же...блин...