Pascal ABC:С помощью цикла repeat определить является ли число A простым (A-рандомное 2 х значное число)

Var a, k, i:integer;

begin

randomize;

a:=random (89) + 10;

writeln ('Число ', a) ;

k:=0;

i:=2;

repeat

if a mod i = 0 then k:=k+1;

i:=i+1;

until (i=a) ;

if k=0 then writeln ('Простое') else writeln ('Не простое') ;

if a<0 then writeln ('Число отрицательное') ;

end.