Пожалуйста, помогите мне! задание по паскалю абс
НАПЕЧАТАТЬ НОМЕРА ЭЛЕМЕНТОВ МАССИВА, МЕНЬШИХ ПЕРВОГО.

Program zadacha;vara: array[1..100] of integer;i,n: integer;beginwriteln(vvedite kol-vo elementov massiva);readln(n);for i:=1 to n do begina[i]:=random(100);write(a[i]:6);end;writeln();for i:=2 to n do beginif a[i]lt;a[1] thenwriteln(menshe pervogo ,a[1], N ,i, , a[i]) ;end;end.