flatcar

Например, так:

var
	a: longint;
begin
	writeln('Введите целое число(не более 2100000000)');
	readln(a);
	while (a <> 0) do
		begin
			if a mod 2 = 0 then
				writeln('Это число четное')
			else
				writeln('Это число нечетное');
			writeln('Введите целое число(не более 2100000000)');
			readln(a);
		end;
end.

А таймер какую роль должен играть?

Оберните все в цикл вайл, и сообщайте пользователю, например, для выхода нажмите 0, если введен не ноль цикл продолжается.