Задана последовательность из 10 целых чисел. Для каждого элемента начиная со второго найти разницу с предыдущим элементом (ai - ai - 1)

Ответ пишу в комментариях, использовал массив, так проще). На входе вводишь 10 чисел на выходе 5 разниц. Если сделал что-то не так, пиши поправлю!

const n=10;var a:array[1..n] of integer;i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(51); write(a[i]:4); end;writeln;writeln('Искомые разности:');for i:=2 to n do write(a[i]-a[i-1]:4);writeln;end.Пример:  3  43  32  33  18  29  21  48  33  28Искомые разности:  40 -11   1 -15  11  -8  27 -15  -5