Поиск максимального и минимального элемента в массиве

max:=a[1];
min:=a[1];
for i:=1 to n do
    begin
    if a[i]>max then
       max:=a[i];
    if a[i]<min then
       min:=a[i];
    end;

uses crt;
var a: array [1..100] of integer;
    n,i,max,min,kmax,kmin,sum: integer;
begin
min:=100;
max:=-100;
write ('Введите размер массива ');
readln (n);
write ('Дан массив');
for i:=1 to n do
    begin
    a[i]:=random(101)-50;
    write (a[i]:4);
    if a[i]>max then
       max:=a[i];
    if a[i]<min then
       min:=a[i];
    inc(sum,a[i]);
    end;
for i:=1 to n do
    begin
    if a[i]=max then
       inc(kmax);
    if a[i]=min then
       inc(kmin);
    end;
writeln;
writeln ('Минимальный элемент ',min:5,' встречается ',kmin,' раз(a)');
writeln ('Максимальный элемент',max:5,' встречается ',kmax,' раз(a)');
writeln ('Сумма без максимума и минимума = ',sum-(kmax*max)-(kmin*min));
end.

max:=a[1];
min:=a[1];
for i:=1 to n do
    begin
    if a[i]>max then
       max:=a[i];
    if a[i]<min then
       min:=a[i];
    end;
sum:=0;
for i:=1 to n do begin 
if (min<>a[i]) and (max<>a[i]) then
sum:=sum +a[i];
end;