Склавиатуры вводятся два целых числа a и b. найти и вывести на экран все простые числа, лежащие в диапазоне от a до b. pascal abc функцией

Procedure prost(a: integer); var c,d: integer; begin d: =0; for c: = 2 to a do               if a mod c = 0 then d: =d+1; if d=1 then write(a,' ') end; var a,b: integer; begin write('a = '); readln(a); write('b = '); readln(b); for b: = a to b do       prost(b); end.