Помогите,пожалуйста.Даны три отрицательных числа найти предыдущее и следующее значение максимального из этих чисел. На языке паскаль с изспользованием Goto

uses crt; var a,b,c,ch1,ch2:integer; begin  readln (a,b,c) if (a>b) and (a>c) then begin ch1:=a+1; ch2:=a-1;end;   if (b>c) and (b>a) then begin ch1:=b+1; ch2:=b-1;end; if (c>b) and (c>a) then begin ch1:=c+1; ch2:=c-1;end;    writeln ('преведущее = ',ch2,'последущее = ',ch1); end. Не пойму что тут делать с goto