Построение многочленов и арифметические операции с ними

program Project2;
 
type
   IntPerem=integer;
   List=^First;
 
   First=record
   dataCi,dataEi:IntPerem;
   next,las:List;
   end;
 
 
procedure Add(var  L:List);
var s1,s2:IntPerem;
    r1,r2:string;
    t1,t2:integer;
    NowElem:List;
    bool,fir:boolean;
begin
   fir:=true;
   repeat
    Write('Ci=');
    Readln(r1);
    Write('Ei=');
    Readln(r2);
       val(r1,s1,t1);
       val(r2,s2,t2);
     if (t1=0) and (t2=0) then
          begin
            bool:=false;
             if fir<>true then
              begin
          if (s2<0) or (L^.las^.dataEi<s2) then
                    begin
                       bool:=true;
                       WriteLn('mistake!!!');
                       L:=nil;
                    end;
              end;
                if bool<>true then
                  begin
                      new(NowElem);
                      NowElem^.next:=nil;
                      NowElem^.dataCi:=s1;
                      NowElem^.dataEi:=s2;
                        if L=nil then
                          L:=NowElem
                        else
              L^.las^.next:=NowElem;
              L^.las:=NowElem;
          end
        else
          begin
            t1:=0;
            t2:=0;
          end;
        fir:=false;
      end;
   until (t1<>0) or (t2<>0);
end;
 
 
procedure Summ(var L:List; x:integer);
var NowElem:List;
    P:Real;
begin
    P:=0;
    NowElem:=L;
    while NowElem<>nil do
      begin
     P:=P+NowElem^.dataCi*exp(NowElem^.dataEi*Ln(x));
     NowElem:=NowElem^.next;
      end;
    WriteLn('P(x)=',P:1:5);
end;
 
 
procedure print(var L:List);
var NowElem:List;
begin
   NowElem:=L;
    while NowElem<>nil do
      begin
     Writeln(NowElem^.dataCi,' ',NowElem^.dataEi);
     NowElem:=NowElem^.next;
      end;
end;
 
 
var i,x:integer;
    L:List;
begin
   Write('x=');
   ReadLn(x);
   repeat
   Writeln('vvedi comandu i:');
   Readln(i);
     case i of
      1: Add(L);
      2: Summ(L,x);
      3: Print(L);
      4: i:=4;
     end;
   until i=4;
   L:=nil;
end.

program Project2;
 
type mas=array[1..100] of real;
type
   IntPerem=integer;
   List=^First;
 
   First=record
   dataCi,dataEi:IntPerem;
   next,las:List;
   end;
 
procedure Add(var  L:List);
var s1,s2:IntPerem;
    r1,r2:string;
    t1,t2:integer;
    NowElem:List;
    bool,fir:boolean;
begin
   fir:=true;
   repeat
    Write('Ci=');
    Readln(r1 );
    Write('Ei=');
    Readln(r2);
       val(r1,s1,t1);
       val(r2,s2,t2);
     if (t1=0) and (t2=0) then
          begin
            bool:=false;
             if fir<>true then
              begin
                  if (s2<0) or (L^.las^.dataEi<s2) then
                    begin
                       bool:=true;
                       WriteLn('mistake!!!');
                       L:=nil;
                    end;
              end;
                if bool<>true then
                  begin
                      new(NowElem);
                      NowElem^.next:=nil;
                      NowElem^.dataCi:=s1;
                      NowElem^.dataEi:=s2;
                        if L=nil then
                          L:=NowElem
                        else
                          L^.las^.next:=NowElem;
                      L^.las:=NowElem;
                  end
                else
                  begin
                    t1:=0;
                    t2:=0;
                  end;
            fir:=false;
          end;
   until (t1<>0) or (t2<>0);
end;
 
 
procedure Summ(var L:List;x:real;i:integer;var mass:mas);
var NowElem:List;
    P:Real;
begin
    P:=0;
    NowElem:=L;
    while NowElem<>nil do
      begin
         P:=P+NowElem^.dataCi*exp(NowElem^.dataEi*Ln(x));
         NowElem:=NowElem^.next;
      end;
    mass[i]:=P;
end;
 
 
procedure Inter(var L:List;var  mass:mas; NumElems:integer);
var i:integer;
    x:real;
begin
    for i:=1 to NumElems do
      begin
         L:=nil;
         Write('x=');
         ReadLn(x);
         Add(L);
         Summ(L,x,i,mass);
         WriteLn('mass[',i,']=',mass[i]:1:5);
      end;
end;
 
procedure ArifDeistvie(mass:mas; NumElems:integer);
var c,m:integer;
    Results:real;
begin
    repeat
         WriteLn;
         WriteLn('1-summa');
         WriteLn('2-proisvedenie');
         WriteLn('3-exit');
         Write('comanda=');
         Readln(c);
           case c of
            1: begin
                  Results:=0;
                   for m:=1 to NumElems do
                     Results:=Results+mass[m];
                  WriteLn('Results=',Results:1:5);
               end;
            2: begin
                  Results:=1;
                   for m:=1 to NumElems do
                     Results:=Results*mass[m];
                  WriteLn('Results=',Results:1:5);
               end;
            3: begin
                  c:=3;
               end;
           end;
    until c=3;
end;
 
 
var i:integer;
    L:List;
    mass:mas;
    NumElem:integer;
begin
       Write('NumberElements=');
       ReadLn(NumElem);
       if NumElem>1 then
         repeat
         WriteLn;
         WriteLn('1-Inter');
         WriteLn('2-ArifDeistvie');
         WriteLn('3-Exit');
         Write('comanda=');
            Readln(i);
              case i of
               1: Inter(L,mass,NumElem);
               2: ArifDeistvie(mass,NumElem);
               3: i:=3;
              end;
         until i=3
       else
         begin
            Write('Error,needs NumberElements>1');
            ReadLn;
         end;
end.