Проблема с чтением из типизированного файла

[BeCTHuK]

В общем, в одной из частей программы нужно организовать чтение из типизированного файла(longint) в запись.
Но вместо желаемого получаю какой-то мусор, даже пытаясь просто сделать вывод на экран. Хотя запись в другой файл работает без проблем.

assign(fi, 'путь');
reset(fi);
assign(fo, 'путь');
rewrite(fo);
i:=0;
	while not EOF(fi) do 
        begin
                 i:=i+1;
		read(fi, inp[i].number, inp[i].time);
		write(inp[i].number, inp[i].time); 
                {write(fo, inp[i].number, inp[i].time); так работает}
	end;
close(fi);
close(fo);

Подскажите как реорганизовать цикл(цикл for пробовал, получается тоже самое.) ?

[Serge_Bliznykov]

давайте описания структур (например, inp - это что? массив чего?
дальше. Давайте код, которым Вы пишете в файл.
пока это всё одни слова..

p.s. хотя один косяк уже сразу есть. Если в исходном файле будет НЕЧЁТНОЕ число записей, то при Вашем способе чтения получите "Read error"

[BeCTHuK]

Вот:

uses crt;
const N=10;
type data = record
	number:longint;
	time:longint;
	end;
var   i:integer;
	fi, fo:file of longint;
	inp:array[1..N] of data;
begin
clrscr;
assign(fi, 'путь');
reset(fi);
assign(fo, 'путь');
rewrite(fo);
i:=0;
	while not EOF(fi) do begin
                i:=i+1;
		read(fi, inp[i].number, inp[i].time);
		write(inp[i].number, inp[i].time);
	end;
close(fi);
close(fo);
end.

Код которым пишу в файл был написан в фигурных скобках.

write(fo, inp[i].number, inp[i].time);

Да, с записью в файл тоже косяки бывают при разных количествах записей. runtime error