В последовательности из n целых чисел все элементы уменьшить на минимальное число последовательности — Pascal(Паскаль)

program Dekio;
const
n=20;
var
mas :array[1..n] of integer;
i,min,minz :integer;
begin
randomize;
min:=1;
minz:=0;
for i:=1 to n do
begin
mas[i]:=random(20)-5;
write(mas[i],' ');
if mas[i] < mas[min] then
min:=i;
minz:=mas[min];
end;
writeln;
writeln('Минимальный элемент ',minz);
for i:=1 to n do mas[i]:=mas[i]-minz;
for i:=1 to n do write(mas[i],' ');
end.