Найти максимальную разность двух соседних элементов массива из 10 вещественных чисел. Указать индексы элементов — Pascal(Паскаль)

const n=10;
var a:array[1..n]of real;
    i,ind:integer;
    r:real;
begin
for i:=1 to n do
read(a[i]);
writeln;
r:=0;
for i:=1 to n-1 do
if abs(a[i]-a[i+1])>r then
begin
    r:=a[i]-a[i+1];
    ind:=i;
end;
writeln('Максимальная разница: ',r,' Между элементами ',ind,' и ',ind+1);
end.