Дан массив A(n). Уменьшить все его элементы на минимальный элемент A- Pascal(Паскаль)

uses crt;
const n = 10;
var a : array[1..n] of integer;
    i : integer;
    min : integer;
 
begin
clrscr;
writeln('vvedite chisla massiva');
for i := 1 to n do
readln(a[i]);
min := a[1];
for i := 2 to n do
if min>a[i] then
min:= a[i];
writeln('minimal`noe znachenie - ',min);
for i := 1 to n do
begin
a[i] := a[i]-min;
writeln('novoe znachenie- ' ,a[i]);
end;
readln;
end.

program mas;
const 
n=5;
var
a :array[1..n] of integer;
i,m :integer;
begin
for i:=1 to n do
readln(a[i]);
m:=a[1];
 
for i:=2 to n do
if a[i] < m then 
m:=a[i];
 
for i:=1 to n do
begin
a[i]:=a[i]-m;
write(a[i],' ');
end;
end.