Проверка кода програмы Мax и Мin [Pascal]

[mark1ra]

Условия задачи:
1. Найти количество максимумов и минимумов из введенных чисел.
2. Вывести введенные числа (без максимумов и минимумов).
*Использовать: массивы, процедуры, for - циклы.
*Сама программа работает, но чувствую она нуждается в хорошей доработке.

Program NR2_13;
Uses crt;
var i,n,q,k:integer;
    Type
    Mass=array [1..100] of real;
    var A:Mass;
    max,min: real;
Procedure Minimum(var A:Mass);
begin
  min:=A[1];
    for i:=1 to n do
     if A[i]<min then min:=A[i];
    k:=0;
    for i:=1 to n do
     if A[i]=min then k:=k+1;
end;
        Procedure Maximum(var A:Mass);
        begin
          max:=A[1];
            for i:=1 to n do
             if A[i]>max then max:=A[i];
            q:=0;
            for i:=1 to n do
             if A[i]=max then q:=q+1;
        end;
begin
write('Введите N: '); readln(n);
writeln('Введите ',n,' чисел:');
  for i:=1 to n do
  begin
    write(i,': ');  readln(A[i]);
  end;
clrscr;
Minimum(A);
Maximum(A);
     writeln('Количество максимумов: ', q);
     writeln('Количество минимумов: ', k);
writeln;
     writeln('Введенные числа (не считая максимумов и минимумов): ');
       if (n=q) or (n=q+k) then writeln('Нет чисел!') else
         for i:=1 to n do
         if (A[i]<>max) and (A[i]<>min) then write(A[i]:0:0,' | ');
     readln;
end.