Дан полином P(X)=C1XN1+C2XN2+…+CkXNk. Привести подобные полиномы — Pascal(Паскаль)

Program pw2;

var
  p: array [1 .. 100] of integer;
  i, k, x: integer;

function step(x, n: integer): integer;
var
  i, t: integer;
begin
  t := x;
  for i := 2 to n do
    x := x * t;
  step := (x);
end;

function polinom: integer;
var
  i, y: integer;
begin
  y := 0;
  for i := 1 to k do
    y := y + (p[i] * step(x, p[i]));
  if k = 1 then
    polinom := x
  else
    polinom := y - 2;
end;

begin
  writeln('Vvedite znachenie K');
  readln(k);
  writeln('Vvedite znachenie X');
  readln(x);
  { k:=5; x:=2; }
  for i := 1 to k do
    p[i] := i;
  writeln('Rezulitat Polinoma raven ', polinom);
  readln;

end.