Не работает код. Можете посмотреть?

program lb7;
type
  d=record
  n:string[30];
  r:string[10];
  t:string[10];
end;
var
  x:d;
  f,g:file of d;
  y:byte;
  i:byte;
  c:char;
  n1:string[30];
  Function ReadKey : Char;
  begin
    assign(f,'d.dat');
    repeat
      writeln('Головне меню:');
      writeln('1. Створення');
      writeln('2. Перегляд');
      writeln('3. Видалення');
      writeln('4. Доповнення');
      writeln('5. Пошук фільму');
      writeln('6. Вихід');
      readln(y);
      case y of
        1:begin
          {$I-};
          rewrite(f);
          {$I+};
          if fileexists('d.dat')=false
          then begin
            writeln('Файл вже існує');
            exit;
          end;
          writeln('Введіть назву файлу(припинення - enter)');
          repeat
            with x do
            begin
              write('Назва: '); readln(n);
              write('Спеціальність: '); readln(r);
              write('Тривалість: '); readln(t);
            end;
             write(f,x);
             if readkey=#13
             then break;
          until false ;
          close(f);
        end;
        2:begin
          {$I-};
          reset(f);
          {$I+};
          if fileexists('d.dat')=false
          then begin
            writeln('Файл не існує');
            exit;
          end;
          writeln('Вмістиме файлу');
          while not eof(f) do
          begin
            read(f,x);
            with x do
            begin
              writeln('Назва: ', n);
              writeln('Спеціальність: ', r);
              writeln('Тривалість: ', t);
            end;
          end;
          close(f);
        end;
        3:begin
          {$I-};
          reset(f);
          {$I+};
          if fileexists('d.dat')=false
          then begin
           writeln(' Файл не існує');
           exit;
          end;
          assign(g,'d.dat');
          {$I-};
          rewrite(g);
          {$I+};
          if cancreatefile('d.dat')=false
          then begin
            write('Файл вже існує');
            exit;
          end;
          writeln('Вмістиме файлу: ');
          while not eof(f) do
            begin
              read(f,x);
              with x do
                begin
              writeln('Назва: ', n);
              writeln('Спеціальність: ', r);
              writeln('Тривалість: ', t);
            end;
            write('Вилучити? y/n');
            read(c);
            if c='n' then write (g,x);
            end;
            close(f);
            close(g);
            erase(f);
            rename(d, 'd.dat');
           end;
         4:begin
           reset(f);
           seek(f,filesize(f));
          writeln('');
          writeln('Введіть назву файлу(припинення - enter)');
          repeat
            with x do
            begin
              write('Назва: '); readln(n);
              write('Спеціальність: '); readln(r);
              write('Тривалість: '); readln(t);
            end;
            write(f,x);
            if readkey=#13
             then break;
          until false;
          close(f);
         end;
         5:begin
           {$I-};
           reset(f);
           {$I+};
           if fileexists('d.dat')=false
           then begin
             writeln('Файл не існує');
             exit;
           end;
           writeln('Введіть назву спеціальності для пошуку: ');
           readln(n1);
           i:=0;
           while not oef(f) do
           begin
             read(f,x);
             with x do
               if n=n1 then begin
                 writeln(n, ' ', r, '', t, '');
                 i:=1;
               end;
           end;
           close(f);
           if (i=0)
           then writeln('Такої спеціальності в записі немає');
           end;
           6:exit;
           end;
         until false;
      end;
  end.

cancreatefile