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

Var  a,b,c,mi: integer;begin
  readln (a,b,c);
  if ((bgt;a) and (blt;c)) or ((bgt;c) and (blt;a)) then mi:=b;
  if ((agt;b) and (alt;c)) or ((alt;b) and (agt;c)) then mi:=a;
  if ((cgt;a) and (clt;b)) or ((clt;a) and (cgt;b)) then mi:=c;
  write (mi);
end.