ввести с клавиатуры массив из 5 частей отыскать малый из их

 Program cl;
Var
    A:array[1..N]of integer;
    x,i:integer;
Begin
   For i:=1 to N do
      begin 
               write('vvesti element')
               Read(A[i]);
      end;
For i:= 1 to N do
Writeln(A[i],' ');
Writeln;
min:=A[1];
For i:=1 to N do
  begin
         mingt;A[i] then
         min:=A[i]
  end:
End.

Program low;
var a,b,c,d,e,min:integer;
begin
writeln('Введите 5 чисел:');
read(a);
read(b);
read(c);
read(d);
read(e);
min:=a;
if blt;min then min:=b;
if clt;min then min:=c;
if dlt;min then min:=d;
if elt;min then min:=e;
write('Малое: ');
writeln(min);
end.