Срочно Составить программу вычисления массива А состоящего из 14 частей сформированная

Это все в одной программке?

поточнее в одном коде?

Program M;
const N = 14;
var A:array [1 .. N] of integer;
i, j, max: integer;
begin

for i := 1 to N do
A[i] := random (40) + 20;
for i := 1 to N do
write ( a[i] :4 );
writeln;

max := A[1];

for i := 2 to N do
if A[i] gt; max then
begin
max := A[i];
end;

writeln ( 'Величайший элемент массива ', max );

end.