Найти сумму элементов одномерного числового массива - Turbo Pascal

const
  n = 3;{Количество элементов в массивах. При желании можно изменить}
 
type
  mas = array [1..n] of integer;
 
var
  a, b: mas;
  p, left, right: integer;
 
function sum(x: mas; size: integer): integer;
var
  i, s: integer;
begin
  s := 0;
  for i := 1 to size do
    s := s + x[i];
  sum := s
end;
 
procedure Print(x: mas; size: integer);
var
  i: integer;
begin
  for i := 1 to size do
    Write(x[i], ' ');
  Writeln
end;
 
procedure Create(var x: mas; size, d1, d2: integer);
var
  i: integer;
begin
  for i := 1 to size do
    x[i] := Random(d2 - d1 + 1) + d1;
end;
 
begin
  Randomize;
  Writeln('Введите диапазон случ. чисел (лев < прав): ');
  repeat
    Writeln('Левая граница = '); Readln(left);
    Writeln('Правая граница = '); Readln(right);
  until right >= left;
  Create(a, n, left, right);
  Writeln('Массив A:');
  Print(a, n);
  Create(b, n, left, right);
  Writeln('Массив B:');
  Print(b, n);
  p := Sum(a, n) - Sum(b, n);
  Writeln('P = ', p);
  Readln
end.