Какое минимальное расстояние должен проплыть Яша, чтобы выбраться из бассейна на бортик? - Turbo Pascal

Формулировка задачи:

ша плавал в бассейне размером NM метров и устал. В этот момент он обнаружил, что находится на расстоянии x метров от одного из длинных бортиков (не обязательно от ближайшего) и y метров от одного из коротких бортиков. Какое минимальное расстояние должен проплыть Яша, чтобы выбраться из бассейна на бортик? Входные данные Программа получает на вход числа N, M, x, y. Выходные данные Программа должна вывести число метров, которое нужно проплыть Яше до бортика. Примеры входные данные 23 52 8 43 выходные данные 8

Решение задачи: «Какое минимальное расстояние должен проплыть Яша, чтобы выбраться из бассейна на бортик?»

textual
                            Листинг программы 
                        

                            var
  n,m,x,y:integer;
function min(a,b:integer):integer;
  begin
    if a>b then min:=b
           else min:=a;
  end;
begin
  n:=23;
  m:=52;
  x:=8;
  y:=43;
  write('Result:=',min(min(x,n-x),min(y,m-y)));
end.
                        