Что у меня не правильно (Pascal)?

Question

Написать прогу :
а) Заполнить массив А (40) случайным образом, целыми числами с диапазоном [100,999]
б) вывести елементы массова на екран
в) упорядочить массив выборочным методом.
Условие:
диапазон ел-в массива от 8 до 38,елементы кратные 5 Что у меня не правильно (Pascal)?

Joni Si · Accepted Answer

не правильно написана генерация чисел 
надо было написать random(899)+100; тогда если будет 0 - то мы получим 100, если 899 - то 999 
остальное тяжело читать - но то что описал явная ошибка логики

Dimka Zima · Answer

uses crt; 
 const n=40; 
 var a:array[1..n] of integer; 
 x,k:integer; 
begin 
clrscr; 
 // заполнение массива 
 k:=1; 
 while k'<'n do begin лишние знаки иначе подрезает 
 x := random(899)+100; 
 if (k '>' 7) and (k<39) then 
 repeat 
 x := random(899)+100; 
 until (x mod 5) = 0; 
 a[k]:=x; 
 inc(k) 
 end; 
// вывод 
 for k:=1 to n do begin 
 write(' ', a[k]:3 ); 
 end; 
 writeln; 
 end. 
насчет упорядочить уж сам только не понятно упорядочить как? 
 оставить те же требования 8-38 или просто упорядочить?