Текстовый файл на Паскале

Program Dl_Chislo; {Дописать: Деление, Сложение, Умножение}
Type Long_Chislo=array[0..100] of integer;
 
Var
   F,FA,FB,FC,Fost:text;
   A,B,C,Ost:Long_Chislo;
   Deist:Char;
 
//----------------------
Procedure File_in(F:Text; var FA,FB:Text; Deist:char);
const N=500;
var
    g:string;
    s:char;
    w:integer;
begin
  Reset(f);
  Rewrite(Fa);
  Rewrite(Fb);
  g:='+-*/';
  w:=1;
  while not eof(F) do
  begin
  read(F,s);
  if (pos(s,g)=0) and (w=1) then
  write(FA,s);
  if (pos(s,g)<>0) then
  begin
    w:=2;
    Deist:=s;
  end;
 
  if (pos(s,g)=0) and (w=2) then
     write(FB,s);
  end;
 
end;
 
//------------------
Procedure In_Chislo(F:Text; var A:Long_Chislo);
var
  i,temp:integer;
  s:char;
begin
  i:=1;
  reset(F);
  while not eof(F) do
  begin
    read(F,s);
    a[i]:=StrToInt(s);
    a[0]:=i;
    inc(i);
  end;
 
  for i:=1 to a[0]-1 do
  begin
    temp:=a[a[0]-i];
    a[a[0]-i]:=a[i];
    a[i]:=temp;
  end;
end;
 
//-----ФУНКЦИЯ: Проверка на равность-------
Function More(A,B:Long_Chislo): Boolean;
Var i:integer;
  begin
    More:=True;
    If A[0]>B[0] then
      More:=True;
    If A[0]<B[0] then
      More:=False;
    If A[0]=B[0] then
      For i:=A[0] downto 1 do
        If A[i]>=B[i] then
          i:=i-1
        Else Begin
          i:=1;
          More:=False;
        end;
end;
 
//------ПРОЦЕДУРА: Сложение-------------
Procedure Sum(A,B:Long_Chislo; var C:Long_Chislo);
begin
end;
 
//------ПРОЦЕДУРА: Вычитание------------
Procedure Sub(A,B:Long_Chislo; var C:Long_Chislo);
  var i:integer;
Begin
  While B[0]<A[0] do begin //Выравнивание массивов
    B[0]:=B[0]+1;
    B[B[0]]:=0;
  end;
 
  For i:=1 to A[0] do begin //Подсчет
    if (A[i]<B[i]) then begin
      A[i]:=A[i]+10;
      A[i+1]:=A[i+1]-1;
      C[i]:=A[i]-B[i];
      C[0]:=C[0]+1;
    end
    Else begin
      C[i]:=A[i]-B[i];
      C[0]:=C[0]+1;
    end;
  End;
 
  While (C[C[0]]=0) and (C[0]<>1) do //Удаление лишних нолей
    C[0]:=C[0]-1;
end;
 
//-------ПРОЦЕДУРА: Умножение--------------
Procedure Mul(A,B:Long_Chislo; var C:Long_Chislo); //умножение
begin
end;
 
//-------ФУНКЦИЯ: Проверка "больше или меньше"-------
Function EQ(A,B:Long_Chislo): Boolean;
Var i:integer;
  Begin
    EQ:=True;
    If A[0]=B[0] then
      For i:=1 to A[0] Do
        If A[i]=B[i] then
          i:=i+1
        Else Begin
          i:=A[0];
          EQ:=False;
        end
     Else
       EQ:=False;
end;
 
//-----------------------------------------
Procedure Out_Chislo(C:Long_Chislo; Var FC:text); //(F:TExt; var C:Long_Chislo);
Var i:integer;
    n:string;
begin
  Rewrite(FC);
  For i:=C[0] downto 1 do begin
    n:=IntToStr(C[i]);
    Write(FC,n);
  end;
  Close(FC);
end;
 
//--------ПРОЦЕДУРА: Деление----------
Procedure Dev(A,B:Long_Chislo; var C,Ost:Long_Chislo);
begin
end;
 
//Основное тело программы
Begin
  Assign(F,'C:\Users\Дмитрий\Desktop\F.txt');   //create C:\Documents and Settings\student\Рабочий стол\F.txt
  Assign(FA,'C:\Users\Дмитрий\Desktop\FA.txt');
  Assign(FB,'C:\Users\Дмитрий\Desktop\FB.txt');
  Assign(FC,'C:\Users\Дмитрий\Desktop\FC.txt');
  Assign(Fost,'C:\Users\Дмитрий\Desktop\Fost.txt');
 
  reset(F);
  rewrite(FA);
  rewrite(FB);
  rewrite(FC);
  rewrite(Fost);
 
  File_in(F,FA,FB,Deist);
  In_Chislo(FA,A);
  In_Chislo(FB,B);
 
  Case Deist of
   '+' : Sum(A,B,C);
   '-' : if More(A,B) then Sub(A,B,C)
        else
           if EQ(A,B) then begin c[0]:=1 ; c[1]:=0; end
         else
            begin sub(B,A,C); {дописать минус} end;
   '*' : MUL(A,B,C);
   '/' : if (EQ(A,B)) or (Less(A,B)) then
         if EQ(A,B) then
         begin c[0]:=1; c[1]:=1; Ost[0]:=1; Ost[1]:=0 end
           else
         begin C[0]:=0; C[1]:=0; Ost:=A end
            else Dev(A,B,C,Ost);
  end;
 
  Out_Chislo(FC,C);
  Out_Chislo(Fost,Ost);
 
  //Закрытие файлов
  Close(F);
  Close(FA);
  Close(FB);
  Close(FC);
  Close(Fost);
End.