Работа с файлом, поиск и добавление,удаление записей из него

var err:boolean;
    f:text;
    c:char;
    IOResult: integer;
    s:string;
    data:1900..2100;
    sved: record marka:string;
                 nomer:0..9999;
                 familiya:string;
                 data:1900..2100;
    end;
begin
err:=false;
write('Введите имя файла с расширением txt: ');
repeat
        readln(s);
{$I-}
        assign(f,s);
        rewrite(f);
        case IOResult of
                0: err:= true;
                3: write('Путь к файлу указан неверно. Измените путь: ');
                5: write('Доступа к файлу нет. Измените имя файла: ');
              152: write('Такого диска нет. Измените имя диска: ');
         else write('Такого файла нет. Измените имя файла: ');
        end;
    until err;
{$I+}
repeat 
  writeln('Введите марку автомобиля');
  readln(sved.marka);
  write(f,sved.marka);
  writeln('Введите номер автомобиля');
  readln(sved.nomer);
  write(f,sved.nomer);
  writeln('Введите фамилию владельца автомобиля');
  readln(sved.familiya);
  write(f,sved.familiya);
  writeln('Введите год выпуска автомобиля');
  readln(sved.data);
  writeln(f,sved.data);
  Writeln('Хотите продолжить заполнение файла? Y=Да N=Нет');
  Readln(c);
until c='N';
close(f);
Writeln('Введите дату выпуска');
Readln(data);
end.