Найти максимальный элемент массива

const n=10;
Type Arr= array [1..n] of real;
var ar:  Arr;
a,b: real;
i: integer;
function MaxEl(const a: Arr): real;
var i: integer;
begin
result:=a[1];
for i:=2 to n do
if a[i]>result then result:=a[i];
end;
function Sum(const a: Arr): real;
var i,k: integer;
begin
result:=0;
k:=0;
for i:=n downto 1 do
if a[i]>0 then begin k:=i-1; break; end;
for i:=1 to k do result:=result+a[i];
end;
procedure Deleting  (var ar: arr; const a,b: real);
var i,j: integer;
begin
i:=1;
while i<=n do
if (abs(ar[i]) >=a) and (abs(ar[i])<=b) then begin
for j:=i to n-1 do ar[j]:=ar[j+1];
ar[n]:=0;
end
else i:=i+1;
end;
begin
writeln('Çàïîëíèòå ìàññèâ:');
for i:=1 to n do
read(ar[i]);
writeln;
writeln('Ìàêñèìàëüíûé ýëåìåíò: ',MaxEl(ar));
writeln;
writeln('Ñóììà ýëåìåíòîâ ìàññèâà, ðàñïîëîæåííûõ äî ïîñëåäíåãî ïîëîæèòåëüíîãî ýëåìåíòà: ',Sum(ar));
writeln;
writeln('Óäàëåíèå èç ìàññèâà ýëåìåíòîâ, ìîäóëü êîòîðûõ íàõîäèòñÿ â èíòåðâàëå [a,b].');
write('Ââåäèòå a: ');
readln(a);
write('Ââåäèòå b: ');
readln(b);
Deleting(ar,a,b);
writeln;
writeln('Ìàññèâ:');
for i:=1 to n do
write(ar[i],' ');
writeln;
end.