Создать текстовый фал целых чисел, в котором сначала расположены отрицательные компоненты, а потом положительные. Между ними вставить цифру 0.- Pascal(Паскаль)

файл создаем в notepad++
содержимое C:\data.txt до работы программы

-5 -4 -3
-2 -1
1 2 3

и после работы

-5 -4 -3
-2 -1
0 1 2 3

var
  i:integer;
  f_in,f_out:text;
  s,s2:string;
  k,t:integer;
begin
      writeln('Do obrabotki');
      k:=0;
       assign(f_in,'C:\data.txt');
       reset(f_in);
        while not eof(f_in) do
       begin
       readln(f_in,s);
       writeln(s);
       end;
 
      close(f_in);
 
      k:=0;
       assign(f_in,'C:\data.txt');
       reset(f_in);
       assign(f_out,'c:\res.tmp');
       rewrite(f_out);
       while not eof(f_in) do
       begin
         while not eoln(f_in) do
         begin
         read(f_in,t);
         if ((t>0) and (k=0)) then begin write(f_out,' 0 ',t,' '); k:=1; end else  write(f_out,t,' ');
         end;
       readln(f_in);
       writeln(f_out);
       end;
       close(f_in);
       close(f_out);
  
        assign(f_in,'C:\data.txt');
        erase(f_in);
        assign(f_out,'c:\res.tmp');
        rename(f_out,'C:\data.txt');
  
       writeln('Рosle obrabotki');
 
       assign(f_in,'C:\data.txt');
       reset(f_in);
        while not eof(f_in) do
       begin
       readln(f_in,s);
       writeln(s);
       end;
 
       close(f_in);
  
       writeln('Press Enter to exit');
         readln;
end.