11 строка не стоит точка с запятой
Срочно-срочно?
set /p a="Dir: "
copy %a%\*.txt C:\Reserv\
Шапка проги
writeln ('введите количество чисел');
readln (n);
y:=30000;
for i:=1 to n do
writeln ('введи число');
readln (x);
if x<y then y:=x;
writeln (x);
end.
В теории HDMI если чего нового не изобрели