Перекажить фрагмент "на ескалатори" вид имени яви и павлуши ​

Var procedure kamen(x, y: integer); {здесь рисуете свой камень. вместо координат х и у} begin {я опишу только анимацию камня. с графикой давно не работал-успел забыть} x: =300; y: =400; while y< > 700 do if y< 200 then begin x: =x+15; y: =y+10;   setcolor(15); kamen(x, y); delay(100); setcolor(0); kamen(x, y) else x: =x+15; y: =y-10; setcolor(15); kamen(x, y); delay(100); setcolor(0); kamen(x, y); end; closegraph; readln; end. все числа нужно подогнать на практике

Втой же папке, где будет программа, создаете два блокнота, называете input и output a: array[1..10000] of integer; i, k, min, imin: integer; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); { если в тот же, то assign(input,'input.txt'); rewrite(output);                     rewrite(input); } for i: =1 to 10 do read(a[i]); min: =a[1]; for i: =1 to 10 do if min> a[i] then begin min: =a[i]; imin: =i; end; writeln; writeln(min,' ', imin);   end. вписать в тот же файл делаю впервые, поэтому за правильность вывода не отвечаю.