1. Дано n целых чисел. Вывести все числа, меньшие последнего числа

Массив заполняется случайными числами от нуля до 20 включительно.

var
matrix: array[1..20]of integer;
i: integer;

begin
for i := 1 to 20 do
begin
matrix[i] := random(20);
write(matrix[i]:4);
end;

writeln;
writeln(Все числа, наименьшие заключительного в ряду:);
for i := 1 to 10 do
begin
if matrix[i] lt; matrix[20] then
write(matrix[i]:4, ;);
end;
writeln;
writeln(Числа в ряду от 3 до 7:);
for i := 1 to 10 do
begin
if (matrix[i] lt; 7) and (matrix[i] gt; 3) then
write(matrix[i]:4, под индексом [,i, ];);
end;
end.