Сформировать и вывести на экран последовательность из n элементов

uses crt;
var n,i,a,mn,
k:integer;
beginwrite(n=);
readln(n);
writeln(Введите ,n, целых чисел);
 k:=0;
 i:=1;
 while ibegin 
 readln(a); 
if i=1 then  
begin    mn:=a;   
k:=1 
 end 
else
if abegin   
mn:=a;   
k:=i  
end; 
i:=i+1 
end;
write(Минимальный элемент=,mn, его номер=,k);end.