Оформление задачи

const
  NMax = 2000;
 
type
  digit = 0..9;
  DlChislo = array[0..NMax] of Digit;
  st = array [0..NMax] of string;
  mas = array [0..Nmax] of DlChislo;
 
function dlina(c: DlChislo): integer;
var
  i: integer;
begin
  i := NMax;
  while (i > 1) and (c[i] = 0) do i := i - 1;
  dlina := i;
end;
 
procedure print(a: DlChislo);
var
  i: integer;
begin
  for i := dlina(a) downto 1 do
    write(a[i]:1);
  writeln;
end;
 
procedure zero(var a: DlChislo);
var
  i: integer;
begin
  for i := 1 to NMax do a[i] := 0;
end;
 
procedure Translate(s: string; var a: DlChislo);
var
  ok: boolean;
  i: word;
begin
  zero(a);
  i := length(s);
  ok := true;
  while (i >= 1) and ok do
  begin
    if s[i] in ['0'..'9']
      then a[length(s) - i + 1] := ord(s[i]) - 48
    else ok := false;
    i := i - 1;
  end;
end;
 
procedure Multiplication(a, b: DlChislo; var c: DlChislo);
var
  i, j: integer; p: Digit;
  VspRez: 0..99;
begin
  zero(C);
  for i := 1 to dlina(A) do
  begin
    p := 0;
    for j := 1 to dlina(b) do
    begin
      VspRez := a[i] * b[j] + p + c[i + j - 1];
      c[i + j - 1] := VspRez mod 10;
      p := VspRez div 10
    end;
    c[i + j] := p
  end;
end;
 
procedure Multiplicat(a, b: DlChislo; var c: DlChislo);
var
  i, j, m: integer; p: Digit;
begin
  zero(C);
  if dlina(a) > dlina(b) then
    j := dlina(a) else
    j := dlina(b);
  for i := 1 to j do
  begin
    m := a[i] + b[i] + p;
    p := 0;
    if m = 10 then
    begin
      p := 1;
      m := 0;
    end;
    if (m > 9) and (m <> 10) then
    begin
      p := m mod 10;
      m := m div 10;
    end;
    c[i] := m;
  end;
end;
 
var
  x: DLChislo;
  s: string;
  a: st;
  n, i: integer;
  c, d, v: mas;
 
begin
  write('введите х = ');
  readln(s);
  Translate(s, x);
  write('введите n = ');
  readln(n);
  for i := 0 to n do
  begin
    write('введите а[', i, '] = ');
    readln(a[i]);
    Translate(a[i], c[i]);
  end;
  d[n] := c[n];
  for i := n - 1 downto 0 do
  begin
    Multiplication(d[i + 1], x, d[i]);
    Multiplicat(c[i], d[i], d[i]);
  end;
  print(d[0]);
end.