Нужно составить программу нахождения наименьшего из 4 вообще не поняла думаю что кто то знает на этот вопрос

Program bip;
var a,q,n:integer;
begin 
 writeln('введите четыре числа'); 
readln(a); 
q:=0; 
 n:=1; 
 while (n<>4) do 
begin   
  if (a>q) then     
q:=a;   
 readln(a);   
  n:=n+1;  end; 
  writeln('большее из пяти ',q)
;end.

С массивов и цикла for.