Простые числа

Program CPascal;

var x_left,x_right,temp:longint;
    i,j:integer;
    flag:boolean;

Begin
Write('Введите левую границу: '); Readln(X_Left);
Write('Введите правую границу: '); Readln(X_Right);

if (X_Left > X_Right) then
                          Begin
                          Temp:=X_Left;
                          X_Left:=X_Right;
                          X_Right:=Temp;
                          end;

for i:=x_left to x_right do
    Begin
    Temp:=0;

    // Проверяем простое ли это число...
    for j:=2 to i do if (i mod j = 0) then Inc(Temp);

    if (Temp = 1) and (i mod 10 = 3) then
                                         Begin
                                         Flag:=True;
                                         Write(i,' ');
                                         end;
    end;

// Выведем сообщение, если простые числа оканчивающиеся на тройку из диапазона небыли найдены...
if not Flag then Writeln('Простых чисел оканчивающизся на тройку из диапазона ',X_Left,'..',X_Right,' не найдено :(');
end.