Программа выдает ошибку времени выполнения: входная строка имела неверный формат

function f(a,b:integer):integer;
begin
if b<=a then f:=a
else f:=b*f(a,b-1);
end;
var a,b,c:integer;
begin
write('Введите целое число a=');
readln(a);
repeat
writeln('Введите диапазон для умножения b<c');
readln(b,c);
until b<c;
writeln('Произведение чисел от ',b,' до ',c,'=',f(b,c));
if f(b,c)=a then write('Число ',a,' можно представить произведением чисел от ',b,' до ',c)
else write('Число ',a,' нельзя представить произведением чисел от ',b,' до ',c)
 
end.

var s := '';
 
function f(a,b,c : Integer) : Boolean;
begin
  if b > c then
    Result := a = 1
  else 
    begin  
      while a mod b = 0 do
        begin
          s += (s.Length>0? ' x ' : '') + b;
          a := a div b;
        end;
      Result := f(a, b+1, c);
    end;
end;
 
begin
  var(a,b,c):=ReadInteger3;
  if f(a,b,c) then WriteLn('можно', NewLine, s) else WriteLn('нельзя');
end.

begin
  var(a,b,c):=ReadInteger3;
  var s := '';
  for var i := b to c do
    while a mod i = 0 do
      begin
        s += (s.Length>0? ' x ' : '') + i;
        a := a div i;
      end;
  if a = 1 then WriteLn('можно', NewLine, s) else WriteLn('нельзя');
end.