Schemat blokowy programu w Pascal

[łuba]

Witam

Mógłbym prosić kogoś o sprawdzenie tego schematu blokowego? O ile co do działania programu nie mam wątpliwości to już co od schematu nie jestem pewien czyt wszystko sobie dobrze wyrysowałem. Poniżej zamieszczam kod źródłowy i schemat.

program liczby_pierwsze;
uses Crt;
var
n,i:integer;
lp:boolean;
begin
lp:=true;
writeln('Podaj liczbe: ');
readln(n);
clrscr;
 for i:=2 to n-1 do
 if (n mod i)=0 then
    begin
     lp := false;
     break
    end;

       if (lp=true) then
         begin
         writeln(n, ' jest liczba pierwsza');
         end

         else
         begin
         writeln(n,' nie jest liczba pierwsza');
          end;

           readln;
          end.

[PSPascal]

Schemat blokowy jest OK I nie kłamię, sprawdzałem za pomocą programu ELI. Btw to jest twój program, czy z jakiegoś kursu?