Составить алгоритм и программу выбирающую из трех чисел то которое лежит между двумя другими — Pascal(Паскаль)

uses crt;

var
  a, b, c, low, high, mid: integer;

begin;
  clrscr;
  writeln('Введите три числа(после каждого ENTER)');
  readln(a);
  readln(b);
  readln(c);
  low := a;
  high := a;
  IF b < low THEN
    low := b;
  IF c < low THEN
    low := c;
  IF b > high THEN
    high := b;
  IF c > high THEN
    high := c;
  IF low = a THEN
  begin
    if high = b then
      mid := c;
    if high = c then
      mid := b;
  end;
  IF low = b THEN
  begin
    if high = c then
      mid := a;
    if high = a then
      mid := c;
  end;
  IF low = c THEN
  begin
    if high = a then
      mid := b;
    if high = b then
      mid := a;
  end;
  writeln('Между ', low, ' и ', high, ' лежит ', mid);

end.