Создать программку поиска 3-х простых чисел, предыдущих числу М, данному

program raf105;

var m,i,j,x,y:integer;

begin

write('Введите число больше 9: ');

readln(m);

writeln;

writeln('Вывод: ');

for i:=m downto 1 do

begin

 if xlt;3

   then

   begin

   y:=0;

     for j:=2 to i-1 do

       if (i mod j)=0

         then y += 1;

   if y=0

     then

     begin

       x +=1;

       writeln(i);

     end;

    end;

end;

end.

Язык PascalABC