Помогите решить Задачу (Массивы) срочно.

[pav19]

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

[pav19]

Program net;
USES CRT;
Var
Max : Real;
M,A:array [1..15] of integer;
i:integer;
Begin
Randomize;
for i:=1 to 15 do
A[i]:=Random (30);
for i:=1 to 15 do
M[i]:=A[i]-2;
For i:=1 to 15 do
begin
If (M[i]>Max) and (i mod -2 = 0)
Then
Max:= M[i];
end;
For i:=1 to 15 do
Writeln ('A[', i , ']=', A[i]);
For i:= 1 to 15 do
Writeln ('M[', i, ']=', M[i]);
Writeln (', Max, ' ');
end.
Max, ' ');
end.

Примерно так только исправить надо помогите плиз.

[DM_bite]

program xD;
const n=15;
var a,b: array [0..n] of integer;
    i,sum,sum1: integer;
    begin
    randomize;
    sum:= 0;
    sum1:= 0;
    for i:= 0 to n do
     begin
      a[i]:= random(n);
      b[i]:= sqr(a[i])-a[i];
      end;
      WriteLn('Massiv a:');
      for i:= 0 to n do
       begin
       Write('[',a[i],']');  //Выводим на экран a
       end;
       WriteLn;
       WriteLn('Massiv b:');
       for i:= 0 to n do
       begin
       Write('[',b[i],']'); //Выводим на экран полученный массив b
       end;
       WriteLn;
       for i:= 0 to n do
        begin
        sum:= sum + a[i];  //сумма элементов a
        sum1:= sum1 + b[i];  //сумма элементов b
        end;
             WriteLn('Iskomoe znachenie:',sum-sum1);  //находим разность сумм элементов a и b
         ReadLn;
         end.

[pav19]

Огромное спасибо