рекурсия в delphi

[denn91]

Написать программу, которая проверяет, является ли заданная последовательность литер, заканчивающаяся пробелом, изображением целого числа без знака, делящегося на пять.

[Stilet]

Вот рекурсия:

var s:string; k:integer;
 function ok(i:integer):boolean;
 begin Result:=true;
  if (s[i] in ['0'..'9']) then
   if i=1 then Result:=true else  Result:=ok(i-1)
  else
   if i=1 then Result:=true else  Result:=false;
 end;
begin k:=1;
 s:='1234';write(ok(Length(s))); readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Твоя задача - поправить программу кодом, перевода строки в число (пара строк) и проверить делится ли оно на пять