(Паскаль либо Delphi)Написать программку поиска двухзначных чисел, удовлетворяющих последующему

Program z_3;
var a,b,n,s, i: integer;
Begin 
repeat  
writeln ('Введите Ваше число'); 
readln (n); 
if (n lt; 10) or (n gt; 99) then i:= 0 
else i:= 1; 
until igt;0; 
a:= n mod 100 div 10; 
b:= n mod 10; 
s:= (a+b)+sqr (a+b); 
if s lt;gt; n then writeln ('Число не соотвествует условию') 
else writeln ('Число ',s, ' соответствует условию');
End.