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

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