Помогите пожалуйста написать проверку ввода для этой программы

[Saaashka]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c:real;
begin
write ('a='); readln(a);
write ('b='); readln(b);
write ('c='); readln(c);
If (b-a)<(c-a) then
writeln('toska b blise ')
else
write('toska c blise ');
readln;
end.

[Stilet]

Что значит "проверку ввода"?
Уж ни это ли тебе нужно: http://programmersforum.ru/showthread.php?t=22603