Найти наименьший элемент массива

program sort;
const n= 50;
var a:array [1..n] of integer;
i,j,m:integer;
begin
writeln;
randomize;
for i:=1 to n do
begin
a[i]:=random(30);
write(a[i]:5);
end;
writeln;
m:=1;
for i:=1 to n do
begin
 
if a[i]<a[m] then begin
a[m]:=a[i];
 
end; end;
writeln(a[m]:5);

program sort;
const n= 50;
var a:array [1..n] of integer;
i,j,m:integer;
begin
writeln;
randomize;
for i:=1 to n do
begin
a[i]:=random(30);
write(a[i]:5);
end;
writeln;
m:=a[1];
j:=1;
for i:=2 to n do
if a[i]<m then
begin
m:=a[i];
j:=i;
end;
writeln(m:5);
for i:=1 to n do
begin
if i<>j then
a[i]:=a[i]-m;
write(a[i]:5,' ');
end;

const
 n=50;
var
 arr: array[1..100] of integer;
 i, min: integer;
begin
 randomize;
 min:=1;
  for i:=1 to n do
   begin
    arr[i]:=random(100);
    write(arr[i], ' ');
     if arr[i]<arr[min] then
      min:=arr[i];
   end;
 writeln;
 writeln('Минимальный: ', arr[min]);
  for i:=1 to n do
   begin
    arr[i]:=arr[i]-arr[min];
    write(arr[i], ' ');
   end;
end.