program laba3_2;

Uses
   System.SysUtils;

Type
   TByteSet = set of Byte;

procedure PrintTask; forward;
function InputValue(Min, Max: Byte): Byte; forward;
function UserInputFromConsole(): Byte; forward;
function UserInputFromFile(Path: String): Byte; forward;
function CheckPath(Path: String): Boolean; forward;
function UserOutputPath(): String; forward;
procedure PrintInConsole(MySet: TByteSet; Num: Byte); forward;
procedure PrintInFile(Path: String; MySet: TByteSet; Num: Byte); forward;
function CheckFile(Path: String): Boolean; forward;
function UserInputPath(): String; forward;
function InputMethod: Word; forward;
function OutputMethod(): Word; forward;
function FillSet(Num: Byte): TByteSet; forward;
function Eratosfen(MySet: TByteSet; Num: Byte): TByteSet; forward;
function UserInput(): Byte; forward;
procedure ResultPrint(MySet: TByteSet; Num: Byte); forward;

function InputValue(Min, Max: Byte): Byte;
var
   CurrentValue: Integer;
   IsValid: Boolean;
begin
   repeat
   IsValid := True;
   try
      Read(CurrentValue);
   except
      begin
         IsValid := False;
         Writeln('Введено нецелое число');
      end;
   end;
   if IsValid then
      if (CurrentValue < Min) or (CurrentValue > Max) then
      begin
         IsValid := False;
         Writeln('Введите число в заданном диапазоне');
      end;
   until IsValid;
   InputValue := CurrentValue;
end;

function UserInputFromConsole(): Byte;
var
   Num: Byte;
   const MIN_SIZE = 2;
   const MAX_SIZE = 255;
begin
   Write('Введите число, до которого нужно найти все простые числа в диапазоне ', MIN_SIZE, '..', MAX_SIZE, ': ');
   Num := InputValue(MIN_SIZE, MAX_SIZE);
   Readln;
   UserInputFromConsole := Num;
end;

function UserInputFromFile(Path: String): Byte;
var
   Num: Byte;
   MyFile: TextFile;
begin
   AssignFile(MyFile, Path);
   reset(MyFile);
   Readln(MyFile, Num);
   closefile(MyFile);
   UserInputFromFile := Num;
end;

function CheckPath(Path: String): Boolean;
begin
   if FileExists(Path) then
   begin
      Writeln(Path, ' существует');
      CheckPath := True;
   end
   else
   begin
      Writeln(Path, ' не существует');
      Writeln('Введите корректный путь к файлу');
   end;
end;

function UserOutputPath(): String;
var
   Path: String;
begin
   Writeln('Введите абсолютный путь к файлу для вывода результата');
   Readln(Path);
   UserOutputPath := Path;
end;

procedure PrintInConsole(MySet: TByteSet; Num: Byte);
var
   i: Integer;
begin
   for i := 2 to Num do
      if i in MySet then
         Write(i, ' ');
   Writeln;
end;

procedure PrintInFile(Path: String; MySet: TByteSet; Num: Byte);
var
   i: Integer;
   MyFile: TextFile;
begin
   AssignFile(MyFile, Path);
   rewrite(MyFile);
   for i := 2 to Num do
      if i in MySet then
         Write(MyFile, i, ' ');
   close(MyFile);
   Writeln('Результат работы помещён в файл');
end;

function CheckFile(Path: String): Boolean;
var
   IsValid: Boolean;
   n: Integer;
   MyFile: TextFile;
   const MIN_SIZE = 2;
   const MAX_SIZE = 256;
begin
   AssignFile(MyFile, Path);
   reset(MyFile);
   IsValid := True;
   try
      Read(MyFile, n);
   except
      IsValid := False;
   end;
   if IsValid then
      if (n < MIN_SIZE) or (n > MAX_SIZE) then
         IsValid := False;
   close(MyFile);
   CheckFile := IsValid;
end;

function UserInputPath(): String;
var
   Path: String;
begin
   repeat
      repeat
         Writeln('Введите абсолютный путь к файлу с входными данными');
         Readln(Path);
      until CheckPath(Path);
      if not(CheckFile(Path)) then
         Writeln('Неккоректные данные в файле, исправьте файл');
   until (CheckFile(Path));
   UserInputPath := Path;
end;

function InputMethod: Word;
var
   Method: Word;
   IsValid: Boolean;
begin
   Writeln('Каким способом хотите ввести данные?');
   Writeln('1 - с помощью консоли');
   Writeln('2 - с помощью файла');
   repeat
      IsValid := True;
      try
         Readln(Method);
      except
         begin
            IsValid := False;
            Writeln('Введено нецелое число');
         end;
      end;
      if IsValid then
         if (Method <> 1) and (Method <> 2) then
         begin
            IsValid := False;
            Writeln('Введите 1 или 2');
         end;
   until IsValid;
   InputMethod := Method;
end;

function OutputMethod(): Word;
var
   Method: Word;
   IsValid: Boolean;
begin
   Writeln('Куда хотите вывести результат?');
   Writeln('1 - в консоль');
   Writeln('2 - в файл');
   repeat
      IsValid := True;
      try
         Readln(Method);
      except
         begin
            IsValid := False;
            Writeln('Введено нецелое число');
         end;
      end;
      if IsValid then
         if (Method <> 1) and (Method <> 2) then
         begin
            IsValid := False;
            Writeln('Введите 1 или 2');
         end;
   until IsValid;
   OutputMethod := Method;
end;

procedure PrintTask;
begin
   Write('Данная программа находит все простые числа, не превосходящие n, ');
   Writeln('с помощью алгоритма «решето Эратосфена»');
end;

function FillSet(Num: Byte): TByteSet;
var
   i: Integer;
   MySet: TByteSet;
begin
   for i := 2 to Num do
      Include(MySet, i);
   FillSet := MySet;
end;

function Eratosfen(MySet: TByteSet; Num: Byte): TByteSet;
var
   i, j: Integer;
begin
   for i := 2 to Num do
      if i in MySet then
         for j := i + 1 to Num do
            if j in MySet then
               if (j mod i = 0) then
                  Exclude(MySet, j);
   Eratosfen := MySet;
end;

function UserInput(): Byte;
var
   Method: Word;
   Path: String;
begin
   Method := InputMethod;
   if (Method = 1) then
      UserInput := UserInputFromConsole
   else
   begin
      Path := UserInputPath;
      UserInput := UserInputFromFile(Path);
   end;
end;

procedure ResultPrint(MySet: TByteSet; Num: Byte);
var
   Method: Word;
   Path: String;
begin
   Method := OutputMethod;
   if (Method = 1) then
      PrintInConsole(MySet, Num)
   else
   begin
      Path := UserOutputPath;
      PrintInFile(Path, MySet, Num);
   end;
end;

procedure Main();
var
   Num: Byte;
   MySet: TByteSet;
begin
   PrintTask;
   Num := UserInput;
   MySet := FillSet(Num);
   MySet := Eratosfen(MySet, Num);
   ResultPrint(MySet, Num);
   Writeln('Нажмите Enter для выхода из программы');
   Readln;
end;

begin
   Main();
end.
//D:\Папка Ильи\лабораторки\оаип\3_2\input.txt
//D:\Папка Ильи\лабораторки\оаип\3_2\output.txt