Упорядочить диапазон элементов массива - Turbo Pascal (30360)

Формулировка задачи:

Не компилируется! Помогите что не так в програме, Не могу сделать условие чтобы сортировало только числа кратные 5 Составить программу, по которой: 1) заполнить массив A (40) случайным образом целыми числами с диапазона [100, 999]; 2) вывести элементы массива на экран в строку; 3) упорядочить диапазон элементов массива при следующих условиях: Диапазон элементов массива: Первый :8 Последний:38 Метод упорядочения: выбором Свойства элементов массива: кратные 5

const MaxN = 38;
type TElement = real; TMas = array[8..MaxN] of TElement;
var A : TMas; Nmin, i,N, j : Integer; T :TElement;
 begin
  N:=40;
  randomize;
   for i:=1 to N do begin
   a[i]:=100+Random(900);end;
 WriteLn('До сортировки:');
for i := 1 to N do Write(a[i],' '); WriteLn;
for i := n downto 2 do
for j := 1 to i-1 do
if a[j] > a[j+1]
then begin T := a[j]; a[j] := a[j+1]; a[j+1] := T;
end;
WriteLn('отсортирован:');
for i:=1 to N do
if a[i] mod 5=10 then begin
 write(a[i]);
 end;
   readln;
 end.

Решение задачи: «Упорядочить диапазон элементов массива»

textual
                            Листинг программы 
                        
                            type
  TElement = integer;