Текстовы файл среднее арифметическое

[ast]

Значит такой вопрос:
Я беру текстовый файл, в котором записаны числа, причем расположены они в беспорядке, то есть в первой строчке находятся, например, 5 чисел, во второй строчке - 21 число. Так вот, как мне их всех прочитать? Я не знаю... Если бы все числа были ли бы записаны в одну строчку, то можно было бы запустить цикл до конца файла и написать read() . Если каждое число было бы написано с новой строчки, то написался бы readln() . Как быть в этом случае???

 

[zubr]

Важно, чтобы между числами был какой нибудь разделитель, к примеру пробел. Да и с read, readln можно не замарачиваться. Вот пример, если разделитель пробел:

procedure TForm1.Button1Click(Sender: TObject);
var
str:TStringList;
s, s1:string;
k:Integer;
begin
str:=TStringList.Create;
try
str.LoadFromFile('MyTextFile');
s:=str.Text;
finally
str.Free;
end;
k:=Pos(' ', s);
While k<>0 do
begin
s1:=Copy(s, 1, k-1);
If s1<>'' then
//какие то действия с очередной строкой содержащей число
Delete(s, 1, k);
k:=Pos(' ', s);
end;
end;