Помогите с одномерным массивом. Напишите код на Паскале.

Код? Пожалуйста, правда весь сюда не поместился:

4D 5A 90 00 03 00 00 00 04 00 00 00 FF FF 00 00
B8 00 00 00 00 00 00 00 40 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00
0E 1F BA 0E 00 B4 09 CD 21 B8 01 4C CD 21 54 68
69 73 20 70 72 6F 67 72 61 6D 20 63 61 6E 6E 6F
74 20 62 65 20 72 75 6E 20 69 6E 20 44 4F 53 20
6D 6F 64 65 2E 0D 0D 0A 24 00 00 00 00 00 00 00
50 45 00 00 4C 01 04 00 92 96 38 4F 00 00 00 00
00 00 00 00 E0 00 0F 01 0B 01 02 37 00 7C 00 00
00 10 00 00 00 1A 00 00 80 8A 00 00 00 10 00 00
00 90 00 00 00 00 40 00 00 10 00 00 00 02 00 00
04 00 00 00 01 00 00 00 04 00 00 00 00 00 00 00
00 D0 00 00 00 04 00 00 00 00 00 00 03 00 00 00
00 00 00 01 00 10 00 00 00 00 10 00 00 10 00 00
00 00 00 00 10 00 00 00 00 00 00 00 00 00 00 00
00 C0 00 00 14 07 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ...

var
d:array[1..10] of integer;
p,i,pr:integer;
begin
writeln('Massiv');
randomize;
for i:=1 to 10 do begin
d:=random(21);
if random(2)=1 then
d:=-d;
write(d,' ');
end;
writeln;
write('Enter p (1..10):');
readln(p);
pr:=1;
for i:=1 to p do
pr:=pr*d;
write('Proizvedenie=',pr,' ');
write('Resultat:');
for i:=1 to 10 do
write(p+d,' ');
readln;
readln;
end.

var
p, i, pr:integer;
d:array[1..10] of integer;
begin
randomize;
write('vvedite p: ');
readln(p);

for i:=1 to 10 do
d[ i]:=random(41)-20;

for i:=1 to p do
pr:=pr*d[ i];

writeln('proizvedenie p elementov massiva= ',pr);

write('p+d1,p+d2...p+d10=')
for i:=1 to 10 do begin
d[ i]:=d[ i]+p;
write(d[ i],' +');
end;

readln();
end.