Ввести с клавиатуры массив из N вещественных чисел. Найти разность максимального и минимального элементов.(Составить программу Pascal)

uses crt; const     N = 10; var     a : array [1..N] of Real;     i : Integer;     max, min : Real; begin     clrscr;     for i := 1 to N do     begin         Write('a[', i,'] = ');         Readln(a[i]);     end;     max := a[1];     min := a[1];     for i := 2 to N do     begin        if max < a[i] then max := a[i];        if min > a[i] then min := a[i];     end;     Writeln(max - min:0:3);     Readln; end.