Уменьшить на величину последнего каждый из элементов матрицы

Program Zad431_11;
uses crt;
Type
Mas=array[1..100] of integer;
var
C:Mas;
SrArif:integer;
Sum,min:integer;
n:byte;
Procedure P1(n:byte; C:Mas; var SrArif); {Ищет среднее арифметическое}
var i:byte;
begin
Sum:=0;
for i:=1 to n do
Sum:=Sum+C[i]
end;
begin
SrArif:=Sum/n;
end;
end; {Конец процедуры}
Procedure P2(n:byte; C:Mas; var min); {Ищет минимальный элемент}
var i:byte;
min:=C[1];
for i:=1 to n do
begin
if C[i]<min then mim:=C[i];
end;
end;{Конец процедуры}
begin {начало основной программы}
ReadLn(n); {вводим количество элементов в массиве}
for i:=1 to n do ReadLn(C[i]); {заполняем массив}
P1(n,C,SrArif);
P2(n,C,min);
if SrArif>min then
begin
for i:=1 to n do
C[i]:=C[i]-C[n];
end;
if SrArif<=min then
begin
write ('Среднее арифметическое элементов стало больше минимального элемента массива')
for i:=1 to n do
write(C[i]);
ReadLn;
end;
End.