Сформируйте массив, содержащий 15 элементов с помощью датчика случаных чисел; получите новый массив, каждый элемент которого равен разности квадрата и самого соответствующего элемента исходного массива. найдите резность сумм элементов исходного и нового массива. Выведите на экран исходный и поулченные результаты.

Спасибо заранее 

program a1;vara: array [1..15] of integer;a2: array [1..15] of integer;Mas1:integer;Mas2:integer;Raz:integer;i:integer;begin//Подключаем датчик случайных чиселrandomize;//Цикл заполняющий массивы и нахождение сумм элементов масиваfor i:=1 to 15 dobegina[i]:=random(100);a2[i]:=sqr(a[i])-a[i];Mas1:=Mas1+a[i];Mas2:=Mas2+a2[i];end;//находим разницу массивовraz:=mas1-mas2;//Выводим на экран 1ый массивwrite('Первый массив: ');for i:=1 to 15 dobeginwrite(a[i],'|')end;writeln('');//Выводим на экран 2ой массивwrite('Второй массив: ');for i:=1 to 15 dobeginwrite(a2[i],'|')end;writeln('');//Выводим на экран разность массивовwrite('Разность сумм элементов массива:', raz);writeln('');end.