Проверьте пож программу. Не запускается что-то

[(Нафаня)]

program Project5_praktika3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var s,s1,s2,n,n1,n2,e1,e2,a,b,c,b1,f,x:real;
    i:integer;
begin
  readln(x,n,e1);
  s:=0;
  s1:=0;
  s2:=0;
  n1:=0;
  n2:=0;
  e2:=e1/10;
  b:=x;
  a:=1;
  b1:=-x*x;
  for i:=1 to n do
     begin
       f:=b/a;
       s:=s+f;
       b: = b*b1;
       a:=a+2
     end;
  b: =x;          
  a: = 1;
  f:=b/a;
  if abs(f)>e2 then
     begin
       while abs(f)>e1 do
          begin
            s1:=s1+f;
            n1:=n1+1;
          end;
       s2:=s2+f;
       n2:=n2+1;
       b:=b*b1;
       a:=a+2;
     end;
 writeln (s,' ' ,s1, ' ' , s2);
 readln;
end.

условие на фотографиях

[romec1]

Сообщение от (Нафаня)

program Project5_praktika3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var s,s1,s2,n,n1,n2,e1,e2,a,b,c,b1,f,x:real;
    i:integer;
begin
  readln(x,n,e1);
  s:=0;
  s1:=0;
  s2:=0;
  n1:=0;
  n2:=0;
  e2:=e1/10;
  b:=x;
  a:=1;
  b1:=-x*x;
  for i:=1 to n do
     begin
       f:=b/a;
       s:=s+f;
       b: = b*b1;
       a:=a+2
     end;
  b: =x;          
  a: = 1;
  f:=b/a;
  if abs(f)>e2 then
     begin
       while abs(f)>e1 do
          begin
            s1:=s1+f;
            n1:=n1+1;
          end;
       s2:=s2+f;
       n2:=n2+1;
       b:=b*b1;
       a:=a+2;
     end;
 writeln (s,' ' ,s1, ' ' , s2);
 readln;
end.

условие на фотографиях

во-первых n должно быть интовского типа
во-вторых оно ничему не присвоено
в-третьих поубирайте пробелы в операторе присвоения, тобишь не : =, а :=
вроде бы все... на логику программы не смотрел, что она вообще выполняет?