Помогите с задачей паскаль!

Юзер вводит N вещественных чисел. Число N не определено зараннее.
Выход из цыкла при нуле или 100. В цикле сумма всех целых пложительных чисел
Все делать через цыкл while.
Исправьте код программы плиз:
program zadacha4_2;
uses crt;
var s,n,t:integer;
begin
clrscr;
s:=0;
writeln('Программа для обработки чисел!');
writeln('--------------------------------------------------');
write('Введите числo:'); readln(n);

while (n0) and (n100) do begin
write('Введите числo:'); readln(n);
end;
if n mod 2=1 then s:=s+n;
Writeln ('Сумма =',s);
Writeln ('--------------------------------------------------');
Writeln ('Для завершения работы нажмите любую клавишу!');
Readkey;
End.