Написать программу, которая выводит минимальный элемент введенного с клавиатуры массива целых чисел — Pascal(Паскаль)

Program Poisk;
Uses
Crt;
Type
mas=array[1..100]of integer;
Var
i,n,q:integer;
a:mas;
Procedure insert1(var a:mas; n:integer);
Var
i:integer;
Begin
for i:=1 to n do
begin
Write('Vvedite ',i,'-y element massiva: ');
Readln(a[i]);
end;
Writeln('Ishodnuy massiv: ');
End;
Procedure insert2(var a:mas; n:integer);
Var
m,i:integer;
Begin
for i:=1 to n do
a[i]:=random(10);
Writeln('Ishodnuy massiv: ');
end;
Procedure print(a:mas; n:integer);
Var
i:integer;
Begin
for i:=1 to n do
Write(a[i]:3);
End;
Procedure filling;
Var
q:integer;
Begin
Write('Vvedite kolichestvo elementov tablicy: ');
Readln(n);
n:=abs(n);
Write('Vuberite metod zapolneniya tablicu ');
Write('(0 - s klaviatury, 1 - avtomaticheski): ');
Readln(q);
begin
case q of
0:insert1(a,n);
1:insert2(a,n);
end;
end;
print(a,n);
End;
Procedure poisk1 (n:Integer;a:mas);
Var
Min: integer;
Begin
Min:=a[1];
For I:=1 To n Do
Begin
If Min>a[I]
Then
Min:=a[I];
End;
Writeln;
Writeln('Minimalnuy element massiva- ',min);
End;
Begin
Clrscr;
filling;
Poisk1(n,a);
Writeln;
Readln;
End.