N=20,[10,99]. Новый массив состоит из частей начального массива которые меньше последнего

const

 N = 20;

var

 a, b: array[1..N] of integer;

 i, k: integer;

begin

 Randomize;

 for i := 1 to N do

 begin

   a[i] := 10 + Random(90);

   Write(a[i]:3);

 end;

 Writeln;

 k := 1;

 for i := 1 to N - 1 do

 begin

   if a[i] lt; a[N] then

   begin

     b[k] := a[i];

     Write(b[k]:3);

     k += 1

   end;

 end;

end.