Задачи по Turbo Pascal (Массивы)

[pav19]

Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен разности квадрата и самого соответствующего элемента исходного массива. Найдите разность сумм элементов исходного и нового массивов. Выведите на экран исходные и полученные результаты.
Помогите, пожалуйста, очень СРОЧНО.
ЗА РАНИЕ СПАСИБО.

[Kotovskiy]

Мне тоже нужно написать такую же программу. Я написал(см. ниже), только препод сказал, что ,,соответствующий элемент,, это не тот, который возводится в квадрат, а тот, который близкий к нему по значению, встречающийся далее в массиве.(сначала ищем такой же по значению элемент,если его нет, то ищем уже близкий по значению, потом его вычитаем).Как это написать я не знаю. Помогите кто-нибудь.

uses crt;
var
a,b:array [1..15] of integer;
i,j,k:integer;
begin
clrscr;
randomize;
writeln('Ishodnii massiv');
for i:=1 to 15 do begin
	a[i]:=trunc((random*11)-5);
	j:=j+a[i];
	write(a[i]:3);
end;
writeln;
writeln('Polu4enii massiv');
for i:=1 to 15 do begin
	b[i]:=(sqr(a[i])-a[i]);\\
	k:=k+b[i];
	write(b[i]:3);
end;
writeln;
write('Raznost'' summ massivov = ',j-k);
readln;
end.