Вывести на экран элементы, расположеные перед первым минимальным . массив, паскаль

Uses crt;
var n,i,min,ind:integer;
a:array[1..100] of integer;
begin
writeln(Input "n" and elements of array: );
read(n);
read(a[1]);
min:=a[1];
ind:=1;
for i:=2 to n do
begin
read(a[i]);
if a[i]begin
min:=a[i];
ind:=i;
end;
end;
for i:=1 to ind-1 do
write(a[i], );
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.