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

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