Ошибка чтения из файла в переменную типа integer

[Max1548]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
inp, out: file of integer;
A, B, C, i, count: integer;
passed: boolean;
begin
Assign(inp, 'C:\input.in');
Assign(out, 'C:\output.out');
Reset(inp);
Read(inp, A, B, C);
// Read(inp
Close(inp);
Rewrite(out);
count := 1;
Writeln(A, ' ', B, ' ', C);
Readln;
passed := false;
for i:=1 to C do
begin
if passed = true then
begin
count := count + B;
passed := false;
Writeln(count);
end
else
begin
count := count + A;
passed := true;
Writeln(count);
end
end;
Write(count);
Write(out, count);
Readln
end.
На read(inp, a, b, c) выпадает ошибка read beyon of file

[Silver_S]

Read(inp, A, B, C) - пытается считать из файла 12 байт (SizeOf(integer) * 3).
Если размер файла меньше, то выпадает приведенная вами ошибка.

В общем копайте в сторону содержимого своего файла.

[phomm]

Файл в студию. Более чем уверен , что там вы ручками вписали цифры в виде текста. Если я прав, то вам достаточно создать файл с числом 000011112222 в одну строку и после двоек зажать недолго delete (чтобы удалить возможные переводы строк) и сохранить фаил, при этом получите числа 30h30h30h30h = 808464432 , аналогично 825307441 и 842150450. Если хотите нормальные числа а не по 800 миллионов, то используйте либо шестнадцатеричный редактор , либо записывайте файл программно (напишите простенькую прогу на паскале)
А вот насчет чтения файла (предыдущий пост) я сомневаюсь - файл объявлен как file of integer и читать он будет как раз блоками по 4 байта и в переменные соответствующие, файл же типизированный