Сформировать и вывести на экран последовательность из 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