Немного краснею спросив настолько глупый вопрос но... Я должен когда-нибудь научиться этому...


Как прочитать следущее из файла в виде

Разберешься?

var
  s: string;
  arr: array[1 .. 10] of integer;
  i, n: integer;
  f: text;
  ch: char;


begin
  assign(f, '__ee.txt'); reset(f);

  while not eof(f) do begin
    s := '';
    repeat
      read(f, ch);
      s := s + ch
    until ch = ' ';

    n := 0;
    while not seekeoln(f) do begin
      inc(n);
      read(f, arr[n]);
    end;
    readln(f);

    writeln('read data:');
    write('s = ', s, ' numbers: <');
    for i := 1 to n do write(arr[i]:4);
    writeln('>')

  end;

  close(f);
end.

Разобрался. Спасибо,volvo.