Запиши на Паскале логическое выражение: a по середине между b и c

Var
  i,d,dmin,dmax,kmax,imin,imax:integer;
  n:longint;
begin
  Write('Введите натуральное число N: '); Read(n);
  dmin:=10; dmax:=-1; {больше большего и меньше меньшего}
  i:=0;
  repeat
    d:=n mod 10; n:=n div 10; Inc(i);
    if dmax<d then begin dmax:=d; kmax:=1; imax:=i end
    else if dmax=d then Inc(kmax);
    if dmin>d then begin dmin:=d; imin:=i end
  until n=0;
  Writeln('Минимальная цифра - ',dmin,' находится в разряде ',imin,';');
  Writeln('Максимальная цифра - ',dmax,' находится в разряде ',imax,';');
  Writeln('Сумма максимальной и минимальной цифры - ',dmin+dmax,';');
  Writeln('Максимальная цифра встречается ',kmax,' раз(а);');
  Write('Минимальная цифра - ');
  if (dmin mod 2)=0 then Writeln('четная.')
  else Writeln('нечетная.')
end.

Тестовое решение:
Введите натуральное число N: 388456
Минимальная цифра - 3 находится в разряде 6;
Максимальная цифра - 8 находится в разряде 4;
Сумма максимальной и минимальной цифры - 11;
Максимальная цифра встречается 2 раз(а);
Минимальная цифра - нечетная.

Program prog;
uses crt;

var n,k,min,max,x,i,s: integer;

begin
clrscr;

write('Введите натуральное число N: ');
readln(n);
x:=n;
s:=1;
writeln;
min:=9;
while x>0 do

begin
     if x mod 10 > max then
     begin
     max:=x mod 10;   k:=s;
     end;
     if x mod 10 < min then
     begin
     min:=x mod 10;  i:=s;
     end;
x:= x div 10;
s:=s+1
end;

writeln('Минимальная цифра - ',min,', находится в разряде ',i,';');
writeln('Максимальная цифра - ',max,', находится в разряде ',k,';');
k:=0;
writeln('Сумма максимальной и минимальной цифры - ',min+max,';');
while n>0 do
begin
     if n mod 10 = max then
     k:=k+1;
n:=n div 10;
end;
writeln('Максимальная цифра встречается ',k,' раз;');

if min mod 2 = 0 then  writeln('Минимальная цифра - четная.')
else  writeln('Минимальная цифра - нечетная.');

end.