PASCAL.ФУНКЦИИ.С клавиатуры вводятся два целых числа a и b. Отыскать и

Function prost(a:integer):boolean;
Var i:integer;
Begin 
prost:=true; 
for i:= 2 to a-1 do 
if (a mod i) = 0 then
Begin
prost:=false;
break;
end;
End;

Var 
i,a,b:integer;
Begin 
write('Введите диапозон чисел (a,b) '); 
Readln(a,b); 
if agt;b then write('Неправильный диапозон') else  
for i:= a to b do   
  if prost(i) then write(i,' ');
End.