Дельфи и эксель(прога простая)

program zachetnaya_rabota;
 
uses
 
       ComObj,ActiveX,ComCtrls,Variants;
 
{$APPTYPE CONSOLE}
 const
   s_max_index=9;
 
   Vo_max_index=9;
  dist_max_index=9;
   a=10.89706  ;
   t=10  ;
 
   type
   Vo_massive =array[0..   Vo_max_index] of Real;
   dist_massive=array[0..dist_max_index ] of Real;
 
   s_massive=array[0..  s_max_index] of real;
 
 var
 Vo,s:Real;
 amount,b,c:integer;
 
 smas:s_massive   ;
 Vomas: Vo_massive;
    excellApp,sheet,di,res:OleVariant;
 
 function
 
 countingVo ( t,s,a:Real):Real;
 begin
 result:=(s+(a*sqr(t))/2)/t  ;
 end;
 
begin
 
  Writeln('Hello!my formula is S=V0t-(at*t )/2');           // èñõîäíàÿ ôîðìóëà(â çàäàíèè)
 
  Writeln('I need to count Vo');
  Writeln('Vo=(S+(a*t*t)/2)/t');                //âûâåäåíèå èç èñõîäíîé ôîðìóëû íà÷àëüíîé ñêîðîñòè
  Write('Now input your amount of your values, amount =        ') ;     //âîïðîñ:êàêîå êîëè÷åñòâî ðàç ïîëüçîâàòåëü çàïðàøèâàåò ðåçóëüòàò
 
  readln(amount);
  while (amount<1 ) or (amount>10) do
         begin
          write('your amount must be more than 1 and less than 10');
          write ('input amount again    ');
          read(amount);
 
         end;
   writeln('now input your values ');
   c:=1;                                             //íà÷èíàåòñÿ ââîä çíà÷åíèé
   for b:=0 to amount-1 do
        begin
 
        Write('input' , c,'s =    ');
        read(s);
         smas[b]:=s;
 
        c:=c+1;
         Vo:=  countingVo (s,a,t);
 
         Vomas[b]:=Vo;
 
        end;
        writeln   ('S   |          | Vo   |');
        writeln ('___________________________');
       for b:=0 to amount-1 do
           begin
 
           writeln(smas[b]:3:3,'                            ',Vomas[b]:3:3);
 
           end;
 
            writeln('again');
             for b:=0 to amount-1 do
           begin
 
           writeln(smas[b]:3:3,'                            ',Vomas[b]:3:3);
 
           end;
 
             CoInitialize(nil);
 
           excellApp:= CreateOLEObject('Excel.Application');
 
 excellApp.visible := true;
            excellApp.WorkBooks.add(-4167);
excellApp.Workbooks[1].Worksheets[1].Name:='Work' ;
   excellApp.DisplayAlerts := false;
 
            excellApp.Workbooks[1].Worksheets[1]. Range['A2:A4'].Value:=
            
excellApp := Unassigned;
 
          end;
 
  readln;
   Readln;
  end.
___________