Вместо директива "#" используй {$}. Просто от версии зависеть может. И ты begin забыл поставить
Var n,m,x,y,min:integer;
begin
write('n, m:');
readln(n,m);
write('x, y:');
readln(x,y);
if x<n-x then min:=x else min:=n-x;
if y<min then min:=y;
if m-y<min then min:=m-y;
writeln('min = ',min);
end.
Пример:
<span>n, m:
10 25
x, y:
4 22
min = 3</span>