[v1s2222]

Ну можно просто использовать TStringList. Как-то так:

Код:

var
  a: Array of Integer;
  Str: TStringList;
begin
  Str := TStringList.Create;
  Str.LoadFromFile('file.txt');
  Str.Text := Trim(StringReplace(Str.Text, ',', #13, [rfReplaceAll]));
  SetLength(a, Str.Count);
  for i:=0 to Str.Count-1 do
    a[i] := StrToIntDef(Str.Strings[i], 0); // если по ошибке в файле было записано не цифра (или число), то по умолчанию ставим 0 (чтоб не было ошибок).

// все, теперь все числа хранятся в массиве a.