Даны действительные числа a1, a2, a3, a4, x1, …, x50. Получить b1, …, b50, где- Pascal(Паскаль)

program mas;

uses crt;

const
  nmax = 50;

var
  x: array [1 .. nmax] of integer;
  b: array [1 .. nmax] of real;
  a: array [1 .. 4] of integer;
  i, n: integer;

Begin
  write('Enter a1..a4: ');
  for i := 1 to 4 do
    read(a[i]);

  write('N = ');
  readln(n);

  write('Enter your massive: ');
  for i := 1 to n do
    read(x[i]);

  for i := 1 to n do
  begin
    if ((i > a[3]) and (i <= 4) and (x[i] <> 0) and (x[i] - a[2] <> 0) and
      (x[i] - a[i] <> 0)) then
    begin
      b[i] := (sqr(x[i]) - x[i] - a[i]) / (x[i] - a[i]) *
        (x[i] * sqr(x[i]) - x[i] - a[2]) / (x[i - a[3]]) -
        (sqr(sqr(x[i])) - x[i] + a[4]) / x[i] + x[i] * (x[i] + a[3]);
    end
    else if (x[i] <> 0) then
      b[i] := -(sqr(sqr(x[i])) - x[i] + a[4]) / x[i] + x[i] * (x[i] + a[3])
    else
    begin
      writeln('Error in input parameters...');
      i := n + 1;
    end;
  end;

  write('New massive: ');
  for i := 1 to n do
    write(b[i], ' ');

End.