Помоги разобраться с ошибкой, пожалуйста

[Turok]

Я уже просто не знаю, что делать...

Программа на Динамические структуры данных...Содержит информацию об автобусном парке(номер автобуса, ФИО водителя, маршрут) Должна отображать автобусы в парке и автобусы на маршруте, через меню переводить автобусе с маршрута в парк, и обратно...

Ругаеться когда идёт обращение к полям записи...

[Turok]

{Лабораторная работа №4}
program laba4;
uses crt;
{Объявим запись}
type
    pSp=^park;
    park=record
    nomer:integer;
    FIO:string[25];
    marsh:integer;
    del:boolean;
end;

{Имя файла базы данных}
t=file of park;

var f:t;
    sp:pSp;
    safe:boolean;
    ex:boolean;
    key:char;
    i:integer;
procedure initdb;
begin
     {$I-}
     assign(f,'C:\din.dat');
     reset(f);
     if ioresult <> 0 then
     begin
          rewrite(f);
          close(f);
          reset(f);
          if ioresult<>0 then safe:=false else safe:=true;
     end
     else safe:=true;
     {$I+}
end;

procedure readrecord(n:integer;var rec:park);
var s:integer;
begin
if safe then
begin
     s:=filesize(f);
     if ((s>0) and (n<s)) then
     begin
     seek(f,n);
     read(f,rec);
     end
     else begin rec.nomer:=0;rec.FIO:='NULL';rec.marsh:=0 end;
end;
end;

procedure removerecord(n:integer);
var s:integer;
    rec:park;
begin
if safe then
begin
     s:=filesize(f);
     if ((s>0) and (n<s)) then
     begin
     seek(f,n);read(f,rec);
     rec.del:=true;
     seek(f,n);write(f,rec);
     end;
end;
end;

procedure addrecord(rec:park);
var n,s:integer;
    ex:boolean;
    rec2:park;
begin
if safe then
begin
     s:=filesize(f);
     n:=0;ex:=false;
     if (s>0) then
     begin
          repeat
          seek(f,n);
          read(f,rec2);
          if rec2.del=true then ex:=true else n:=n+1;
          until ((n>=s)or(ex=true)) ;
     end;
     rec.del:=false;
     seek(f,n);
     write(f,rec);
end;
end;

procedure writerecord(n:integer;rec:park);
var s:integer;
begin
if safe then
begin
     s:=filesize(f);
     if ((s>0) and (n<s)) then
     begin
     seek(f,n);
     rec.del:=false;
     write(f,rec);
     end;
end;
end;

procedure drawtable(x:boolean);
var rec:park;
begin
if safe then
begin
     writeln('####################################################################');
     writeln('#  ID |         NOMER            |           FIO            |MARSH #');
     writeln('#-----+--------------------------+--------------------------+------#');
     for i:=1 to filesize(f) do
     begin
          readrecord(i-1,rec);
          if x=false then if rec.del=false then writeln('#',(i-1):4,' |',rec.nomer:25,' |',rec.FIO:25,' |',rec.marsh:5,' #');
          if x=true then if rec.del=true then writeln('#',(i-1):4,' |',rec.nomer:25,' |',rec.FIO:25,' |',rec.marsh:5,' #');
     end;
     writeln('####################################################################');
end;
end;

begin
     ex:=false;
     initdb;
     repeat
     clrscr;
     writeln('* Главное меню *');
     writeln('1. Автобусы в парке');
     writeln('2. Автобусы на маршруте');
     writeln('3. Добавление записи');
     writeln('4. Изменение записи');
     writeln('5. На маршрут');
     writeln('6. В парк');
     writeln('0. Выход');
     key:=readkey;
     case key of
          '0':begin ex:=true;close(f) end;

          '1':begin
                   clrscr;
                   drawtable(false);
                   readkey;
              end;

          '2':begin
                   clrscr;
                   drawtable(true);
                   readkey;
              end;

          '3':begin
                   clrscr;
                   write('Введите номер автобуса ');readln(nomer);
                   write('Введите ФИО водителя (Не > 25 знаков) ');readln(f.FIO);
                   write('Введите номер маршрута');readln(f.marsh);
                   addrecord(f);
              end;

          '4':begin
                   clrscr;
                   drawtable(false);
                   write('Введите ID записи для её изменения ');readln(i);
                   readrecord(i,f);
                   if (f.nomer=0) or (f.del=true) then
                   begin writeln('Введен неправильный номер '); readkey end
                   else
                   begin
                        write('Введите номер автобуса ');readln(f.nomer);
                        write('Введите ФИО водителя (Не > 25 знаков) ');readln(f.FIO);
                        write('Введите номер маршрута');readln(f.marsh);
                        writerecord(i,f);
                   end;
              end;

          '5':begin
                   clrscr;
                   drawtable(false);
                   write('Введите ID записи для её удаления ');readln(i);
                   readrecord(i,f);
                   if (f.nomer=0) or (f.del=true) then
                   begin writeln('Введен неправильный номер '); readkey end
                   else removerecord(i);
              end;

[Turok]

           '6':begin
                   clrscr;
                   drawtable(true);
                   write('Введите ID записи для её восстановления ');readln(i);
                   readrecord(i,f);
                   if (f.nomer=0) or (f.del=false) then
                   begin writeln('Введен неправильный номер (либо записей нету) '); readkey end
                   else
                   begin
                        readrecord(i,f);
                        f.del:=false;
                        writerecord(i,f);
                   end;
              end;
     else
         ex:=false;
     end;

     until ex=true;
end.

[puporev]

Вот примерно отсюда и до конца везде f.____ заменить на sp^.____, что я и сделал, программа работает. f - это у Вас файл, а sp^ - запись.

'3':begin
    clrscr;
    write('Введите номер автобуса ');readln(sp^.nomer);
    write('Введите ФИО водителя (Не > 25 знаков) ');readln(sp^.FIO);
    write('Введите номер маршрута');readln(sp^.marsh);
    addrecord(sp^);
    end;
  
'4':begin
    clrscr;
    drawtable(false);
    write('Введите ID записи для её изменения ');readln(i);
    readrecord(i,sp^);
    if (sp^.nomer=0) or (sp^.del=true) then
      begin
        writeln('Введен неправильный номер ');
        readkey
      end
    else
      begin
       write('Введите номер автобуса ');readln(sp^.nomer);
       write('Введите ФИО водителя (Не > 25 знаков) ');readln(sp^.FIO);
       write('Введите номер маршрута');readln(sp^.marsh);
       writerecord(i,sp^);
      end;
    end;

'5':begin
    clrscr;
    drawtable(false);
    write('Введите ID записи для её удаления ');readln(i);
    readrecord(i,sp^);
    if (sp^.nomer=0) or (sp^.del=true) then
       begin writeln('Введен неправильный номер ');
         readkey
       end
    else removerecord(i);
    end;
'6':begin
    clrscr;
    drawtable(true);
    write('Введите ID записи для её восстановления ');readln(i);
    readrecord(i,sp^);
    if (sp^.nomer=0) or (sp^.del=false) then
      begin
        writeln('Введен неправильный номер (либо записей нету) ');
        readkey
      end
    else
      begin
        readrecord(i,sp^);
        sp^.del:=false;
        writerecord(i,sp^);
      end;
   end;
     else  
         ex:=false;   
     end;   
  
     until ex=true;   
end.

[Turok]

Спасибо огрмоное....спасибо....