Определить, является ли число, введенное с клавиатуры простым В системе Паскаля

var  i,a:integer;          b:boolean:=true; begin    write('Введите число = ');    readln(a);    for i:=2 to round(sqrt(a)) do          if a mod i = 0 then begin b:=false; break; end;    if b then writeln('Число ',a,' является простым')    else writeln('Число ',a,' не является простым') end.