Числа из файла записать в массив - PascalABC.NET

Формулировка задачи:

Всем привет ! Есть файл, в файле 4 числа(неизвестно количество цифр) , разделённые пробелами, как эти числа записать в переменные ?

Решение задачи: «Числа из файла записать в массив»

textual
                            Листинг программы 
                        

                            begin
  var S := '    1234        54321          9999 0  ';
  WriteLn(S);
  
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  var L : Integer;
  repeat
    L := S.Length;
    S := S.Replace('  ', ' '); // Удаляем все двойные пробелы
  until L = S.Length;
  WriteLn(S);
  
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  S := S.Trim(' '); // Удаляем начальные и конечные пробелы
  WriteLn(S);
  
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  // Разбиваем на отдельные слова
  foreach var oneWord in S.ToWords do
    WriteLn(oneWord);
    
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  // Получаем числа и сумму чисел (для того, чтобы убедиться, что это действительно числа)
  var Sum := 0;
  foreach var oneWord in S.ToWords do
    begin
      var N := StrToInt(oneWord);
      WriteLn(N:14);
      Sum += N;
    end;
  WriteLn('Сумма = ', Sum:6);
 
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  // Действительные числа
  var D := '    0.1  0.2   0.12   ';
  WriteLn(D);
  // А вот я показываю, что можно без подготовки сразу делить на отдельные слова
  foreach var oneNumber in D.ToWords do
    begin
      var N := StrToFloat(oneNumber);
      WriteLn(N:10:3);
    end;
end.
                        