Семейный бюджет

program family_finance; 
uses crt;
type 
 s_b=record 
 s_o:array[0..9]of string; 
 d_m:array[1..31]of byte;
 s_d:array[1..31,0..9] of integer; 
 end; 
var 
 r,d:s_b; 
 s,s_d_r,s_d_d,rub:integer; 
 a,b:integer; 
 ch:char; 
procedure s_file(); 
 var i,j:integer; 
 begin
   assign(output, 'output.txt'); 
   rewrite(output); 
   s:=0; s_d_r:=0; s_d_d:=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,' рублей'); 
   writeln;
   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
         write(d_m[i]:8);
       for j:=0 to 9 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;
      end;
     writeln('Сумма доходов за месяц - ',s_d_d,' рублей');
     writeln;
     s:=s_d_d-s_d_r; 
     writeln('В наличии ',s,' рублей'); 
     close(output); 
 end; 
procedure okno_r(); 
 var j,i:integer;
 begin
   repeat
     clrscr;
     writeln(' Расходы ');
     writeln('+-------------------------------------+');
     for i:=0 to 9 do
       with r do
        begin
         writeln(i, s_o[i]); 
         writeln('+-------------------------------------+');
        end;
        writeln;
        writeln('Для ввода одного пункта расходов введите его номер и Enter');
        readln(j); 
        if (j<=9) and (j>=0) then 
         begin
          clrscr; 
          writeln('Введите дату(номер дня)');
          readln(i);
          if (i<=31) and (i>=1) then
           begin
            writeln('Введите сумму');
            with r do
             begin
              readln(rub); 
              s_d[i,j]:=s_d[i,j]+rub; 
             end;
            end else writeln('ошибка ввода');  
           end;
          writeln('Для возврата в главное меню нажмите букву s'); 
          writeln('Для возврата на предыдущее окно нажмите Enter');
          ch:=readkey; 
   until (ch='s') or (ch='ы');
 end;
procedure okno_d();
 var j,i:integer;
 begin
   repeat
     clrscr;
     writeln(' Доходы');
     writeln('+-------------------------------------+');
     for i:=0 to 9 do
       with d do
        begin
         writeln(i,s_o[i]);
         writeln('+-------------------------------------+');
        end;
        writeln;
        writeln(' Для ввода одного пункта доходов введите его номер и Enter');
        readln(j);
        if (j<=9) and (j>=0) then
         begin
          clrscr;
          writeln('введите дату (номер дня)');
          readln(i);
          if (i<=31) and (i>=1) then
           begin
            writeln('Введите сумму');
            with d do
             begin
              readln(rub);
              s_d[i,j]:=s_d[i,j]+rub;
             end;
           end else writeln('ошибка ввода');
         end;
         writeln('Для возврата в главное меню нажмите букву s'); 
         writeln('Для возврата на предыдущее окно нажмите Enter');
         ch:=readkey; 
   until (ch='s') or (ch='ы');
 end;
 
procedure okno2();
 begin
  repeat
    clrscr; 
    writeln(' Главное меню');
    writeln('+-------------------------------------------------+');
    writeln(' Для ввода расходов нажмите букву r');
    writeln('+-------------------------------------------------+');
    writeln(' Для ввода доходов нажмите букву d');
    writeln('+-------------------------------------------------+');
    writeln(' Для сохранения информации в файл нажмите букву p');
    writeln('+-------------------------------------------------+');
    writeln(' Для выхода на предыдущее окно нажмите букву b');
    ch:=readkey;
    if (ch='p') or (ch='з') then s_file(); 
    if (ch='r') or (ch='к') then okno_r(); 
    if (ch='d') or (ch='в') then okno_d(); 
    if (ch='b') or (ch='и') then break; 
  until ((ch='d') or (ch='в') or (ch='r') or (ch='к'));
 end; 
 
procedure okno1(); 
 begin
   repeat
     clrscr;
     writeln(' Здравствуйте!');
     writeln('Вас приветствует программа "Семейный бюджет"');
     writeln(' Для начала работы нажмите s');
     ch:=readkey; 
     if (ch='s') or (ch='ы') then okno2(); 
    until (ch='s') or (ch='ы');
 end;
begin 
 with r do 
  begin
   s_o[0]:=' Еда';
   s_o[1]:=' Жилье';
   s_o[2]:=' Одежда';
   s_o[3]:=' Транспорт'; 
   s_o[4]:=' Связь';
   s_o[5]:=' Обучение';
   s_o[6]:=' Развлечения';
   s_o[7]:=' Путешествия';
   s_o[8]:=' Благотворительная деятельность';
   s_o[9]:=' Прочее';
  end;
  with d do 
   begin 
    s_o[1]:=' Осн. доход мужа';
    s_o[2]:=' Осн. доход жены';
    s_o[3]:=' Доп. доход мужа';
    s_o[4]:=' Доп. доход жены';
    s_o[5]:=' Подарки';
    s_o[6]:=' Соц. выплаты';
   end;
    for a:=1 to 31 do
      for b:=0 to 9 do 
       begin
        with r do 
         begin
          s_d[a,b]:=0; 
          d_m[a]:=a; 
         end;
        with d do
         begin
          s_d[a,b]:=0; 
          d_m[a]:=a;
         end;
       end;
    s_file(); 
    okno1(); 
    okno2(); 
    okno_r(); 
    okno_d(); 
end.