Вделать ввод данных из txt файла

const
    m = 10;
 
var
    arr: array[1..m] of integer;
    i, j, k: integer;
 
begin
    randomize;
 
    for i := 1 to m do begin
        arr[i] := random(256);
        write (arr[i]:4);
    end;
 
 
    for i := 1 to m-1 do
        for j := 1 to m-i do
            if arr[j] > arr[j+1] then begin
                k := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := k
            end;
 
    write ('Отсортированный массив: ');
    for i := 1 to m do
        write (arr[i]:4);
 
    writeln;
 
readln
end.

const
  m = 10;
 
var
  arr: array[1..m] of integer;
  i, j, k: integer;
  f: text;
 
begin
  randomize;
  assign(f, 'input.txt');
  rewrite(f);
  for i := 1 to m do 
  begin
    arr[i] := random(256);
    writeln(f, arr[i]);
  end;
  close(f);
  
  reset(f);
  while not eof(f) do
  begin
    readln(f, arr[i]);
    write(arr[i]:4);
  end;
  close(f);
  writeln;
  for i := 1 to m - 1 do
    for j := 1 to m - i do
      if arr[j] > arr[j + 1] then begin
        k := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := k
      end;
  
  write('Отсортированный массив: ');
  for i := 1 to m do
    write(arr[i]:4);
  
  writeln;
  
  readln
end.

assign(f, 'input.txt');//файл в папке с программой
reset(f);
m:=0;
while not seekeof(f) do//пока в файле есть числа
 begin
  inc(m);//считаем
  read(f, arr[m]);//пишем в массив
  write(arr[m]:4);
 end;
 close(f);