Вывод на экран текста из файла

[Snegovic]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 x:integer;
 f:file of integer;
begin
 assign(f,'D:\games\file.txt');
 reset(f);

 while not eof(f) do
   begin
    read (f,x);
    writeln(x,' ');
   end;
 readln;
end.

В файле записано '1 1 1' а на экран выводится 540090417.
Объясните где ошибка заранее спасибо!

[p51x]

В файле записано '1 1 1'

Записано буквами (текстом)

f:file of integer;

Видится и читается набор кодов символов.

[Snegovic]

Добавил перед чтением файла, запись чисел в него:

rewrite(f);
y:=1;
write(f,y);
write(f,y);
write(f,y);
close(f);

Всё работает, а есть ли возможность читать информацию, которая записана не через Delphi? Из блокнота например?

[Манжосов Денис :)]

Как вариант, изменить с file of integer на file of char =)

[p51x]

2 Snegovic
Читайте файл как текстовой. Выделяйте число-строку (например, по пробелам) и переводите в число.