Определить максимальный элемент массива и его номер - Pascal

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

Помогите ликвидировать ошибку

                    Листинг программы
                
 
                        
                          
                    
program massiv5;
const N=10;
type x=array [1..N] of integer;
y=array [1..N] of integer;
var A:x;
B:y;
i:integer;
max:integer;
imax:integer;
begin
randomize;
for i:=1 to N do
begin
A[i]:= -5+random(3);
write(A[i]:5);
end;
B[i]:=(sqrt(exp(A[i]))-sqr(A[i]));
writeln;
imax:=1;
max:=B[1];
for i:=2 to N do
if max<B[i] then
begin
max:=B[i];
imax:=i;
end;
writeln;
writeln('Max elem= ',max);
writeln;
write('Index ');
for i:=1 to N do
if max=B[i] then
begin
write (i,',');
end;
readln;
end.

Решение задачи: «Определить максимальный элемент массива и его номер»

Листинг программы

const N=10;
var A,B:array [1..N] of real;
      i,imax:integer;
begin
randomize;
writeln('Массив А');
for i:=1 to N do
 begin
  A[i]:=-5+random*10;
  write(A[i]:7:2);
 end;
writeln;
writeln('Массив В');
for i:=1 to n do
 begin
  B[i]:=sqrt(exp(A[i]))-sqr(A[i]);
  write(B[i]:7:2);
 end;
writeln;
imax:=1;
for i:=2 to N do
if B[i]>B[imax] then
imax:=i;
writeln('Max elem= ',B[imax]:0:2,' его номер=',imax);
readln;
end.

Объяснение кода листинга программы

Объявление константы N и переменных A, B - массивов типа real, i, imax - целочисленные переменные.
Генерация случайных значений и вывод массива A с использованием цикла for.
Вычисление значений массива B по формуле sqrt(exp(A[i]))-sqr(A[i]) и вывод его с использованием цикла for.
Инициализация переменной imax значением 1.
Цикл for для поиска индекса максимального элемента в массиве B.
Вывод максимального элемента массива B и его индекса.