Вывести информацию из программы в файл - PascalABC.NET

procedure s_file();
   var i,j : integer;
   begin
   assign (output,'output.txt');
   rewrite (output);
   s := 0; s_d_r := 0; s_d_r :=0;
   write('Расходы : ');
   for i := 0 to 9 do
   with r do
   write ('/',s_o[i]);
   writeln;
   for i := 1 to 31 do
   begin
   with r do
   write(d_m[i]:8);
   for j := 0 to 9 do
   begin
   with r do
   begin
   with s_d do
   if s_d[i,j]=0 then
   write('  -  ':(2*length(s_o[j])))
   else
   write(s_d[i,j] : (length(s_o[j])+4));
   s_d_r := s_d_r+s_d[i,j];
   end
   end;
   writeln;
   end;
   writeln('Сумма расходов за месяц  ',s_d_r,' рублей ');
   write('Доходы : ');
   for i := 0 to 9 do
   with d do
   write ('/',s_o[i]);
   writeln;
   for i := 1 to 31 do
   begin
   with d do
   begin
   with s_d do
   if s_d[i,j]=0 then
   write ('  -  ' : (2*length(s_o[j])))
   else write (s_d[i,j] : (length(s_o[j])+10));
   s_d_d := s_d_d+s_d[i,j];
   end;
   end;
   writeln('Сумма доходов за месяц : ',s_d_d,' рублей');
   writeln;
   s := s_d_d-s_d_r;
   writeln('В наличии ',s,'рублей');
   close(output);

writeln('Главное меню');
    writeln('------------------------------------');
    writeln('Для ввода расходов нажмите букву r');
    writeln('------------------------------------');
    writeln('Для ввода доходов нажмите букву d');
    writeln('------------------------------------');
    writeln('Для сохранения информации в файл нажмите букву p');
    writeln('------------------------------------');
    writeln('Для выхода в предыдущее окно нажмите букву b');
    ch := readkey;
    if (ch='p') or (ch='з') then s_file();