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

[TheKnyazz]

Столкнулся с проблемой, что у меня никак не получается отладить программу, вроде бы все написал, и вроде бы писал как в учебниках, но чет жестко не хочет компилироваться(
Сама программа сделана для решения вот такого задания:
Описать структуру с именем Note, содержащую поля:
-фамилия, имя.
-номер телефона.
-дата рождения(массив из 3 чисел).
Написать программу выполняющую следующие действия с помощью процедур и функций:
-ввод с клавиатуры данных в файл, состоящий из элементов типа Note,
записи должны быть упорядочены по датам рождения.
-чтение данных из этого файла.
-вывод информации о человеке, номер телефона которого введен с клавы.
-Если такого нет, то вывести соотвествующее сообщение.

Вот в общей сложности мои труды)

uses crt;
  type 
    Note=record
       First_Last_name:string[20];
       Phone_number:string[14];
        B_date:record
           year:1990..2000;
           month:string[8];
           day:1..31;
          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,FileSise(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)-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,0);
 writeln('Familiya ima':20,'nomer telefona':14,'data rojdeniya':30);
 while not eof (tab) 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
   writeln('vvedite nomer ili *');
   readln(s);
   if s='*' then break;
   found:=0;
   seek(tab,0);
   
     while not eof 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;
    end;
       if not Found then 
             Writeln('takix net'); 
   end;
        readln;
   end;
  
  begin
  Assign (tab_file,d:\gogi.txt)
  {$|-}
  reset(tab_file);
  {$|+}
  if IOResult=0 then
         writeln('dobavlenie v sushestv file');
  else
    begin
    rewrite(tab_file);
    writeln('zapis v noviy file')
  end;
  readln;
  
  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.

помогите пожалуйста отладить...извиняюсь, что нету коментов..

[Викдон]

а какую ошибку выдает и в каком месте?

[TheKnyazz]

Да в самом начале на слове вар...пишет ожидался идентификатор.. а я не могу понять чтож это такое...((

[Викдон]

FileSise(tab_file)); замени на ,FileSize(tab_file));

[Викдон]

ну и там много мелких недочетов)) типа for i:filesize(tab)-1 downto 1 do
а надо for i:=filesize(tab_file)-1 downto 1 do

[Викдон]

и вот эта строка что по твоему делает? write(tab_file,f2.b_date.year,f1.b_ date.year);
Получается ты в файл поля записываешь?, но это вроде как типизированный файл! туда записываются только записи!!

[TheKnyazz]

Блин, я балбес... енд забыл.... да и еще куча ошибок..

[TheKnyazz]

ну это как бы сортировка....ну и совсем небольшая кривость рук...)

[TheKnyazz]

Теперь застрял на IOResult=0 мой компилятор почему воспринимает это как неизвестную переменную, хотя в учебнике написано, что это можно использовать везде..

[Викдон]

есть такая переменная)) в нее записывается код ошибки))