Переделать вывод программы из текстового файла на экран

program second;
 
{$APPTYPE CONSOLE}
 
uses
   SysUtils, MAth;
 
type
   Ttype = array[-1..10001] of integer;
   Ttype1 = array[0..10001] of integer;
var
   f1, f2 : text;
   i, n : integer;
   ms : Ttype;
   a : Ttype;
   ans : integer;
 
Procedure _sort(var m : Ttype; n : integer);
var
   i, j, w : integer;
begin
   for i:=1 to n-1 do
   for j:=1 to n-i do
     if (m[j] > m[j+1]) then
       begin
         w := m[j];
         m[j] := m[j+1];
         m[j+1] := w;
       end;
end;
 
Procedure Read_data;
var
   num : integer;
begin
   assignfile(f1, 'in1.txt');
   reset(f1);
   i := 0;
   while not (eof (f1)) do
     begin
       read(f1, num);
       inc(i);
       ms[i] := num;
     end;
   n := i;
   close(f1);
end;
 
procedure Solve;
var
   j : integer;
begin
   _sort(ms, n);
   ms[0] := maxint;
   ms[-1] := 0;
   for j := 1 to n do
     a[j] := min(a[j-1], a[j-2]) + abs(ms[j] - ms[j-1]);
end;
 
Procedure Out_data;
var
   num : integer;
begin
   assign(f2, 'out2.txt');
   rewrite(f2);
   writeln(f2, a[n]);
   close(f2);
end;
 
begin
read_data;
Solve;
Out_data;
end.