pascal uzdevums -pirmskaitlji, ir problema

      Ievadiit skaitli  N(obligāti ne pirmskaitlis) noteikt skaitlim N tuvaako mazaako  pirmskaitli (piem ja N=10 tad, rezultaats 7 un ja N=16 tad, rezultaats 13)
     Kur kljuuda??

{Laboratorijas darbs #3 Notekt pirmskaitli}

program pirmskaitlis;
var
  i : real;
begin
    writeln('nav butiski');
    writeln('Ievadiet skaitli i=');
    read (i);
    repeat
          if (i mod 2) or (i mod 3) then

         begin
          writeln ('sfa',i,);
          end;
          i:=i-1

    until i:=0
end.

HELP?? Un nevajag njirgaaties!!!