Добавление записи в файл, чуток осталось, помогите пожалуйста) Опции

[romych]

ниже приведена данная процедура
почти все работает) только при добавлении в файл записи, у самой первой записи он не печатает 1-й элемент
он даже не дает его ввести..
всего там 4 переменных надо вводить. а у первой записи он дает ввести только 3 переменных.. отбрасывая первый, и вместе него печатает пропуск.. у меня 1-й элемент - "название", вместо "названия" ничего не печатает =/
очень прошу, помогите.. буду очень признателен
ток боюсь что криво обхяснил.. ну если кто поймет и сможет помочь - буду очоч рад ^^

type
nazv=record
nazvanie:string[10];
god,kol:integer;
cena:real;
end;
var
f:file of nazv;
t:nazv;

procedure dobav;
var
k,n:integer;
d:char;
begin
writeln('Ввести еще записи?');
read(d);
if d='y' then
begin
writeln('Сколько?');
read(n);
clrscr;
reset(f);
seek(f,filesize(f));
for i:=1 to n do
begin
with t do
begin
writeln('Введите запись');
readln(nazvanie,cena,god,kol);
write(f,t);
end;
end;
close(f);
end
else
begin
clrscr;
writeln('Записей не добавлено');
readln;
end;
end;

Сообщение отредактировано: romych - 18.12.2006 20:15