[iluxa1810]

Код:

procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
begin
Seek(NoteFile, pos);
Truncate(NoteFile);
Button2.Enabled:=false;
if pos<>0 then dec(pos)
else
begin
Button5.Enabled:=false;
ClearDate;
end;
if pos>=0 then
begin
for i:=pos+1 to FileSize(NoteFile)-1 Do
begin
Seek(NoteFile,i);
Read(NoteFile, NoteData);
Seek(NoteFile, i-1);
Write(NoteFile, NoteData);
end;
Seek(NoteFile, FileSize(NoteFile) -1);
Truncate(NoteFile);
end;
Seek(NoteFile, pos);
Read(NoteFile, NoteData); ShowRecord;
if pos=-1 then
begin
Button1.Enabled := false; {Кнопка возвращения назад}
end;
 
end;

Задали перебить программу,а там код глючненный и с ошибками...Пытаюсь методом проб и ошибок его довести до ума,но что-то не получается.Что тут следует дописать и заменить?
P.S А какую позицию принимает pos если файл пуст? Считывание файла начинается с 0 позиции?