Написать программу на ассемблере. в массиве из восьми элементов найти минимальный элемент и его индекс

Uses graphabc; var i: integer;   procedure montain (x,y,k: integer); begin setpenwidth(1); setpencolor(clgreen); line(x,y,x-(30*k),y+(30*k)); line(x,y,x+(30*k),y+(30*k)); line(x+(30*k),y+(30*k),x-(30*k),y+(30*k)); floodfill(x,y+10,clgreen); setpencolor(clbrown); line(x,y,x-(20*k),y+(20*k)); line(x,y,x+(20*k),y+(20*k)); line(x+(20*k),y+(20*k),x-(20*k),y+(20*k)); floodfill(x,y+10,clbrown); setpencolor(clwhite); line(x,y,x-(10*k),y+(10*k)); line(x,y,x+(10*k),y+(10*k)); line(x+(10*k),y+(10*k),x-(10*k),y+(10*k)); floodfill(x,y+5,clwhite); end;   begin setpencolor(clnavy); setwindowsize(900,600); clearwindow(clnavy); for i: =1 to 100 do     begin     setbrushcolor(rgb(random(255),random(255),random(;     circle(random(700)+200,random(180),3);     end; setbrushcolor(clgreen); rectangle(0,350,900,600); setpencolor(clblue); arc(900,1300,900,0,180); floodfill(800,500,clblue); montain (500,150,7); montain (700,170,6); montain (300,200,5); montain (200,270,3); montain (600,270,3); montain (400,270,2); montain (50,300,2); setpencolor(clteal); arc(500,1250,900,80,180) arc(800,1250,900,95,180); floodfill(100,500,clolive); setpencolor(clwhite); arc(100,100,50,-84,180); arc(70,130,40,-30,150); floodfill(100,100,clwhite); end. плагиат ,конечно, но всё же