функция eoln() не работает как надо

[Cannibal]

вот фрагмент кода

procedure readAlph;
const term=' ';
var c:char;
   i:byte;
begin
  i:=1;
  while not eoln(f) do begin
    inputAlph[i]:='';
    read(f,c);
    while (c<>Term) and (c>#32) do begin
      inputAlph[i]:=inputAlph[i]+c;
      read(f,c);
    end;
  inc(i);
  end;
  readln(f)
end;

f - текстовый файл

1 2 3 4 5 6 7 8 9 0 #
A;1 B;1 C;1 D;1 E;1 F;1 G;1 H;1 I;1 #;0

по условию задачи нужно загнать в inputAlph всю первую строчку (каждая цифра - отдельный элемент).
в результате работы программы в массив загоняется и вторая строка тоже.

[alex_fcsm]

С циклами понамудрили. Не проще ли прочитать первую строку из файла а потом из нее удалить пробелы?

Если вы все-таки уточните условие, то наверное должно быть что-то такое

while not(eoln(f)) do
 begin
  read(f,c);
   if c in['0'..'9'] then begin
                              inc(i);
                              inputAlph[i]:=inputAlph[i]+c;
                            end; 
 end;

[Cannibal]

проблема в том, что первая строка может быть допустим такая:
ДЛ Н? ТР MH YHNNM и т.д.
то есть разная длина и разные символы

[Stilet]

while (c<>Term) and (c>#32) and not eoln(f) do begin

[alex_fcsm]

Сообщение от Cannibal

проблема в том, что первая строка может быть допустим такая:
ДЛ Н? ТР MH YHNNM и т.д.
то есть разная длина и разные символы

Задайте множество которое не должно оказаться в результирующей строке

MySet:=[' ','#',','];
.............
.............
   if not(c in MySet) then begin
                              inc(i);
                              inputAlph[i]:=inputAlph[i]+c;
                            end;

Вы скажите что именно надо, сложно советовать не зная условия