Прогу набирала в турбо

Даны два числа P и H. Определить процент чисел меньше Р и больше Н относительно общего количества чисел. При вводе числа, равного Р или Н закончить работу.

a - вводимое число
Р и Н - введеные значения
n - общее количсетво введеных чисел
M - количество чисел, меньших Р
В - количество чисел, больших Н
КМ - процент чисел, меньших Р, относительно общего количества введенных чисел
КВ - процент чисел, больших Н относительно общего количества введенных чисел

program z;
var a,P,H, KM,KB:integer;
n,M,B:real;
begin
n:=0;
M:=0;
B:=0;
KM:=0;
KB:=0;
write ('P');
readln (P);
write ('H');
readln (H);
write ('a');
readln (a);
while (a<>P) or (a<>H) do не уверена, что правильно задано условие...
begin
n:=n+1
if a<P then
M:=M+1;
if a>H then
B:=B+1;
write ('a');
readln (a);
end;
KM:=(M/n)*100
KB:=(B/n)*100 указывает на эти строчки, ошибки не соответствия типов
writeln ('KM=',KM:4:2);
writeln ('KB=',KB:4:2);
end.

Заранее огромное спасибо!