[pva]

assignfile(people,'bd.txt '); »

может из-за пробела в конце названия файла?

[bomberman]

нет дело не в этом, можеть структура не правильно построена у меня, не знаю....

говорит что Incompatible types т.е несовместные типы, но почему?

[BlackEric]

1. Попробуйте описать тип как packed record
2. Если не поможет, то показываете полные сорцы

[pva]

http://www.codenet.ru/progr/delphi/O...scal/files.php

Procedure Append(var F: Text); Открывает существующий текстовый файл для добавления информации в конец файла (дозаписи). Если внешнего файла с данным именем не существует, происходит ошибка времени выполнения. Если файл F уже открыт, он закрывается и вновь открывается. Текущая позиция файла устанавливается к концу файла.

потому что file of user не является текстовым файлом
bomberman, надо сразу сообщать что ругается на этапе компиляции, и приводить текст ругательства. Попробуй сделать так:

Код:

Seek(people, FileSize(people)); // вместо Append

колдлвать с packed record не надо

[Serega]

{здесь ошибка, но почему } »

говорит что Incompatible types »

Так открывать нужно текстовый файл, следовательно и писать нужно, так:

Код:

procedure ReadTextFile(const FileName: string);
var
  in_file: TextFile;
begin
  AssignFile(in_file, FileName);
  Append(in_file);
  WriteLn(in_file, 'Заключительная строка.');
  CloseFile(in_file);
end;

Также, почитать с примером можете здесь.