Найти минимальный элемент одномерного массива

procedure Min;
var a:array[1..n] of integer;
     min:integer;
begin
for i:=1 to n do
    begin
    readln(a[i]);
    end;
a[1]:=min;
for i:=1 to n do
    begin
    if a[i]<min then min:=a[i];
    end;
writeln('Минимальный элемент матрицы = ',min);
end;

uses crt;
var
mas: array [1..10] of integer;
i,n: integer;
 
///////////////////////////
procedure Input_array;
begin
writeln('Çàïîëíåíèå ìàññèâà');
for i:=1 to n do
begin
Write('Ââåäèòå',i,'-é ýëåìåíò ìàññèâà: ') ;
readln(mas[i]);
end;
end;
///////////////////////////
procedure Output_array;
begin
textcolor(50);
write('Âûâîä ìàññèâà: ');
for i:=1 to n do
write(mas[i], ' ');
end;
///////////////////////////
procedure search_min;
var
min: integer;
begin
min:=mas[i];
for i:=1 to n do
 if mas[i]<min then min:=mas[i];
 writeln('Ìèíèìàëüíûé ýëåìåíò ìàññèâà: ',min);
end;
///////////////////////////
begin
write('Óêàæèòå ðàçìåðíîñòü ìàññèâà: ');
readln(n);
Input_array;
OutPut_array;
writeln;
textcolor(100);
search_min;
end.