Составьте программу, удаляющую заданный файл из текущего каталога\

{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
unit uStudTable;
interface
//коды ошибок
const errNoError=0; //нет ошибок
errRecNotFound=-1; //запись не найдена
errFileError=-2; //ошибка ввода вывода
type TStudent=record
active :Boolean; //флаг удаления записей
name :string[12]; //имя
familia:string[16]; //фамилия
gruppa :Integer; //группа
end;
{открывает файл таблицы
 ВХОД
 ATableName - имя файла таблицы
 newcreate - задает поведение при отсутствии файла
True - если файл таблицы не существует, то он создается
False - если файл таблицы не существует, то он не создается
 ВЫХОД
 код ошибки}
function OpenTable(const ATableName:string;
newcreate:boolean):integer;
{закрывает файл таблицы}
procedure CloseTable;
{добавление записи в файл
 ВХОД
 R - переменная, содержащая добавляемые данные
 ВЫХОД
 код ошибки}
function AddRecord(const R:TStudent):Integer;
{чтение записи (строки) из таблицы
 ВХОД
 R - буфер, куда будут помещены прочитанные данные
 index - индекс считываемой строки
 ВЫХОД
 код ошибки}
function ReadRecord(var R:TStudent; index:Integer):Integer;
{запись строки в таблицу
 ВХОД
 R - буфер, содержащий записываемые данные
 index - индекс записываемой строки
 ВЫХОД
 код ошибки}
function WriteRecord(const R:TStudent; index:Integer):Integer;
{удаление строки из таблицы
 ВХОД
 index - индекс удаляемой записи
 ВЫХОД
 код ошибки}
function DeleteRecord(index:Integer):Integer;
{поиск записи в таблице, по столбцу "фамилия"
 ВХОД
 AValue - строка для поиска
 ВЫХОД
 индекс искомой строки (записи) таблицы или код ошибки}
function FindRecordByFamilia(const AValue:String):Integer;
{удаление всех записей из таблицы помеченных как удаленные
 ВЫХОД
 код ошибки}
function CompressTable:Integer;
{возвращает число записей (строк в таблице)
 ВЫХОД
 число записей в файле или код ошибки}
function RecordCount:Integer;
implementation
var StudList:file of TStudent; //файл таблицы
function OpenTable(const AtableName:string;
newcreate:boolean):integer;
var error:Integer;
begin
 AssignFile(StudList, ATableName);
{$I-}
 Reset(StudList);
 error:=IOResult;
if (error<>0)and(newcreate) then Rewrite(StudList);
 error:=IOResult;
{$I+}
if error<>0 then Result:=errFileError else Result:=errNoError;
end;{OpenTable}
procedure CloseTable;
begin
 CloseFile(StudList);
end;{CloseTable}
function RecordCount:Integer;
var error:Integer;
begin
{$I-}
 Result:=FileSize(StudList);
 error:=IOResult;
if error<>0 then Result:=errFileError;
{$I+}
end;{RecordCount}
//добавление записи в конец файла
function AddRecord(const R:TStudent):Integer;
begin
{$I-}
 Seek(StudList, FileSize(StudList));
 write(StudList, R);
if IOResult<>0 then Result:=errFileError else Result:=errNoError;
{$I+}
end;{AddRecord}
function ReadRecord(var R:TStudent; index:Integer):Integer;
begin
{$I-}
 Seek(StudList, index);
 read(StudList, R);
if IOResult<>0 the
end;
if error<>0 then Result:=errFileError //произошла ошибка IO
else if found then begin
 Result:=Filepos(StudList)-1; //элемент был найден (возвращаем
индекс элемента)
 if IOResult<>0 then Result:=errFileError; //произошла ошибка IO
end
else Result:=errRecNotFound; //элемент не найден
{$I+}
end;{FindRecordByFamilia}
function CompressTable:Integer;
var stride, count, i, error:integer;
buf:TStudent;
begin
 i:=0;
 stride:=0;
{$I-}
 count:=filesize(StudList);
 error:=IOResult;
while (i<count)and(error=0) do begin
 seek(StudList, i);
 read(StudList, buf);
 error:=IOResult;
 if error=0 then begin
 if buf.active then
 if stride<>0 then begin
 seek(StudList, i-stride);
 write(StudList, buf);
 error:=IOResult;
 end else
 else Inc(stride);
 inc(i);
 end;{if}
end;{while}
//определем результат завершения цикла
if error=0 then begin
 seek(StudList, count - stride);
 truncate(StudList);
 if IOResult<>0 then Result:=errFileError
 else Result:=errNoError;
end
else Result:=errFileError;
{$I+}
end;{CompressTable}
end.