В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1) максимальный элемент массива; — Pascal(Паскаль)

Uses
 CRT;
var
 a:array[1..100] of integer;
 i,ind,m,imax:integer;
 sum:real;
begin
clrscr;
randomize;
write('M: ');
readln(m);
imax:=1;
ind:=0;
for i:=1 to m do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
  if a[i]>a[imax] then
   imax:=i;
  if a[i]>0 then
   ind:=i;
end;
writeln;
writeln('MAX[',imax,']:=',a[imax]);
if ind=0 then
writeln('Нет положительных')
else
if ind=1 then
writeln('Перед ним нет элемента')
else
begin
sum:=0;
 for i:=1 to ind-1 do
  sum:=sum+a[i];
write('Sum:=',sum)
end;
readkey
end.