Задача на Паскаль

[WitaliG]

Здравствуйте!
Задача: даны три числа, найти среднее из этих чисел, то есть число расположенное между наименьшим и наибольшим.

var
    a,b,c,srnumber :integer;
begin
    readln(a,b,c);
    if (b<a) and (b>c) then
    writeln('srnumber = ',b)
    else if (c<b) and (c>a) then
    writeln('srnumber = ',c)
    else if (a<c) and (a>b) then;
    writeln('srnumber = ',a);
    readln
end.

Я написал код, но он работает не правильно. Что я неправильно написал. Помогите, пожалуйста, разобраться. С уважением Виталий.

[GetMax]

Вот примерно так должно быть.

Begin
  Readln(A,B,C);
  Writeln;
  If ((a > b) and (a < c)) or ((a > c) and (a < b)) then Srnumber:=a;
  If ((b > a) and (b < c)) or ((b > c) and (b < a)) then Srnumber:=b;
  If ((c > a) and (c < b)) or ((c > b) and (c < a)) then Srnumber:=c;
  Writeln('Среднее = ',Srnumber);
  Readln
End.

[WitaliG]

Спасибо. Все хорошо работает.
С уважением.