Знайдіть помилку дуже прошу, програма для знаходження не найменшого і не найбільшого числа з трьох чисел
program Project1; 
 var a,b,c:longint; 
begin 
readln(a,b,c); 
 if (a>b) and (a<c) or (a>c) and (a<b) then writeln(a); 
 if (b>a) and (b<c) or (b>c) and (b<a) then writeln(b); 
 if (c>b) and (a<b) or (c>a) and (b>c) then writeln(c); 
 writeln(maxlongint); 
 readln;
end.