ошибка 26 в массиве

[Активити]

Составить программу выполнения одномерного массива. Ввести входные данные и вывести на экран входные данные и результаты об-исчислений.
тип элементов массива real, длина массива 8, найти модуль разници мин и макс массиву

program massiv;
uses crt;
const N=8;
var s,i,min,max:integer;
A:array[1..N] of real;
begin
writeln('Enter masiv:');
for i:=1 to N do read (A[i]);
min:=A[1]   ;
max:=A[1];
for i:=2 to N do
begin
if min>A[i] then min:=A[i] ;
if max<A[i] then MAX:=A[i];
end;
s:=abs(A[max]-A[min]);
writeln('min=',min,'max=',max,'s=',s);
end.


min:=A[1]   ; ошибка вот здесь

[Вадим Мошев]

Вы пытаетесь присвоить переменной типа integer значение типа real. Вообще, нелогично и неверно, то переменные, рассчитанные на хранение действтельных значений объявлены как целочисленные. Измените их тип на real