Проблемы с ручным вводом(Delphi)?!

[Npwas]

Как сделать чеб массив можно было ввести вручную в данном коде, нетрогая рекурсивную ф-цию и весь код оч сильно в целом?!

program Recursion;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   const n=5;
 var
   a:array [1..n] of integer=(1,2,3,4,5);
 function pol(j,x:integer):integer;
  begin
   if j=1 then
    pol:=a[j]
   else
    pol:=a[j]+x*pol(j-1,x);
  end;
 Var
  x,j:integer;
 begin
  Readln(x);
  Readln(j);
  Writeln('P5 = ', pol(j,x));
  Readln;
 end.

[whatever]

program Recursion;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   const n=5;
 var
   a:array [1..n] of integer;
 function pol(j,x:integer):integer;
  begin
   if j=1 then
    pol:=a[j]
   else
    pol:=a[j]+x*pol(j-1,x);
  end;
 Var
  x,j:integer;
 begin
  for j:=1 to n do readln(a[j]);
  Readln(x);
  Readln(j);
  Writeln('P5 = ', pol(j,x));
  Readln;
 end.

А вообще, код отвратительный. Два var'а, глобальные переменные в функции... Я бы делал вот так:

program Recursion;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  n=5;
type
  mass=array [1..n] of integer;
function pol(a:mass;j,x:integer):integer;
  begin
    if j=1 then
    result:=a[j]
    else
    result:=a[j]+x*pol(a,j-1,x);
  end;
Var
  x,j:integer;
  a:mass;
begin
  for j:=1 to n do readln(a[j]);
  Readln(x);
  Readln(j);
  Writeln('P5 = ', pol(a,j,x));
  Readln;
end.

[nucweapon]

procedure vvod;
var i:integer;
      begin
       
            for i:=1 to [конечное число элементов] do
                   Begin
                    write ('a[',i,']=');
                     readln (a[i]);
                   End;
           end;

В основном "Begin..end" выводишь процедуру.

[Npwas]

всеравно не работает

[whatever]

Мои варианты рабочие. А у nucweapon тоже непонятно что написано. Во-первых массив двумерный, во-вторых зачем-то считываются n и m, при этом массив не динамический.

[nucweapon]

Сообщение от whatever

Мои варианты рабочие. А у nucweapon тоже непонятно что написано. Во-первых массив двумерный, во-вторых зачем-то считываются n и m, при этом массив не динамический.

Мой вариант тоже рабочий.

[Npwas]

Сообщение от whatever

Мои варианты рабочие. А у nucweapon тоже непонятно что написано. Во-первых массив двумерный, во-вторых зачем-то считываются n и m, при этом массив не динамический.

Сорри твой вариант прост сперва не заметил!!!

[whatever]

Сообщение от nucweapon

Мой вариант тоже рабочий.

После того, как я на ошибки указал, а ты их исправил? Ну да рабочий.

[nucweapon]

Сообщение от whatever

После того, как я на ошибки указал, а ты их исправил? Ну да рабочий.

Ошибок нет в обоих вариантах.

[whatever]

Сообщение от nucweapon

Ошибок нет в обоих вариантах.

В данной задаче твой начальный вариант не мог работать. В другой задаче, где нужно заполнить двумерные массивы работал бы, но только в том случае, если бы введеные n и m не превышали значения массива.