Дан файл целых чисел, содержащий четное количество элементов. Удалить из данного файла вторую половину элементов. (на паскале)

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




begin
  var a:=ReadAllText('in.txt').ToIntegers.ToArray;
  WriteAllText('out.txt',a[:a.Length div 2].JoinIntoString)
end.