Помогите пожалуйста составить программки в паскале: 1. сформировать массив из 15

1. const N = 15;
var
a: array[1..N] of integer;
i: byte;
b: integer;
begin
for i:=1 to N do
read(a[i]);

for i:=1 to N div 2 do begin
b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;

for i:=1 to N do
write(a[i], );

writeln;
end.
2.const
N = 10;
var
arr: array[1..N] of integer;
i, min, max: byte;
sum: integer;
begin
randomize;
for i := 1 to N do begin
arr[i] := random(50);
write (arr[i]:3);
end;
writeln;

min := 1;
max := 1;
for i := 2 to N do begin
if arr[i] lt; arr[min] then min := i else
if arr[i] gt; arr[max] then max := i;
end;
writeln(arr[min], ,arr[max]);

if min gt; max then begin
i := min;
min := max;
max := i;
end;

sum := 0;
for i:=min+1 to max-1 do begin
sum := sum + arr[i]
end;
writeln(sum);
end.