program laba3_1;

Uses
   System.SysUtils;

procedure Main(); forward;
function CheckString(s: String): Boolean; forward;
procedure PrintTask; forward;
function GetUserInputFromConsole(): String; forward;
function GetUserInputFromFile(Path: String): String; forward;
function CheckPath(Path: String): Boolean; forward;
function GetUserOutputPath(): String; forward;
procedure PrintInConsole(value: Integer; s: String); forward;
procedure PrintInFile(Path: String; value: Integer; s: String); forward;
function CheckFile(Path: String): Boolean; forward;
function GetUserInputPath(): String; forward;
function InputMethod: Word; forward;
function OutputMethod(): Word; forward;
function DeleteNotSYM(s: String): String; forward;
function ConvertToRim(a: Integer): String; forward;
function Check4Same(s: String): String; forward;
function FixNotValid(s: String): String; forward;
function GetUserInput(): String; forward;
procedure ResultPrint(Value: Integer; s: String); forward;

const
   SYM: array[1..7] of Char = ('I', 'V', 'X', 'L', 'C', 'D', 'M');
   NUM: array[1..7] of Integer = (1, 5, 10, 50, 100, 500, 1000);
   USE_CONSOLE = 1;
   USE_FILE = 2;

function CheckString(s: String): Boolean;
begin
   s := DeleteNotSYM(s);
   if (Length(s) > 4) or (Length(s) = 0) then
      CheckString := False
   else
      CheckString := True;
end;

function GetUserInputFromConsole(): String;
var
   s: String;
begin
   repeat
   Writeln('Введите строку, содержащую до 4х цифровых символов');
   Readln(s);
   until (CheckString(s));
   GetUserInputFromConsole := s;
end;

function GetUserInputFromFile(Path: String): String;
var
   s: String;
   MyFile: TextFile;
begin
   AssignFile(MyFile, Path);
   reset(MyFile);
   Readln(MyFile, s);
   closefile(MyFile);
   GetUserInputFromFile := s;
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 GetUserOutputPath(): String;
var
   Path: String;
begin
   Writeln('Введите абсолютный путь к файлу для вывода результата');
   Readln(Path);
   GetUserOutputPath := Path;
end;

procedure PrintInConsole(value: Integer; s: String);
begin
   Writeln('Введённое число: ', value);
   Writeln('Данное число в римской системе счисления: ', s);
end;

procedure PrintInFile(Path: String; value: Integer; s: String);
var
   i: Integer;
   MyFile: TextFile;
begin
   AssignFile(MyFile, Path);
   rewrite(MyFile);
   Writeln(MyFile, 'Введённое число: ', value);
   Writeln(MyFile, 'Данное число в римской системе счисления: ', s);
   close(MyFile);
   Writeln('Результат работы помещён в файл');
end;

function CheckFile(Path: String): Boolean;
var
   IsValid: Boolean;
   s: String;
   MyFile: TextFile;
begin
   AssignFile(MyFile, Path);
   reset(MyFile);
   Readln(MyFile, s);
   if s <> '' then IsValid := True;
   close(MyFile);
   CheckFile := IsValid;
end;

function GetUserInputPath(): String;
var
   Path: String;
begin
   repeat
      repeat
         Writeln('Введите абсолютный путь к файлу с входными данными');
         Readln(Path);
      until CheckPath(Path);
      if not(CheckFile(Path)) then
         Writeln('Некорректные данные в файле, исправьте файл');
   until (CheckFile(Path));
   GetUserInputPath := 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 <> USE_CONSOLE) and (Method <> USE_FILE) 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 <> USE_CONSOLE) and (Method <> USE_FILE) then
         begin
            IsValid := False;
            Writeln('Введите 1 или 2');
         end;
   until IsValid;
   OutputMethod := Method;
end;

function DeleteNotSYM(s: String): String;
var
   i: Integer;
   const SYM = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];
begin
   i := 1;
   while (i <= Length(s)) do
      if not(s[i] in SYM) then
         Delete(s, i, 1)
      else
         Inc(i);
   DeleteNotSYM := s;
end;

function ConvertToRim(a: Integer): String;
var
   s: String;
   i: Integer;
begin
   i := 7;
   while (a > 0) do
   begin
      while (a div NUM[i] > 0) do
      begin
         Dec(a, NUM[i]);
         s := s + SYM[i];
      end;
      Dec(i);
   end;
   ConvertToRim := s;
end;

function Check4Same(s: String): String;
var
   i, j, Temp: Integer;
begin
   i := 1;
   while (i < Length(s) - 2) do
   begin
      if (s[i] = s[i + 1]) and (s[i + 1] = s[i + 2]) and (s[i + 2] = s[i + 3]) then
      begin
         for j := 1 to 7 do
            if SYM[j] = s[i] then
               Temp := j;
         Delete(s, i + 1, 3);
         Insert(SYM[Temp + 1], s, i + 1);
      end;
      Inc(i);
   end;
   Check4Same := s;
end;

function FixNotValid(s: String): String;
var
   i, j, Temp, Temp1: Integer;
begin
   i := 1;
   while (i < length(s) - 1) do
   begin
      if (s[i] = s[i + 2]) then
      begin
         for j := 1 to 7 do
            if SYM[j] = s[i] then
               Temp := j;
         for j := 1 to 7 do
            if SYM[j] = s[i + 1] then
               Temp1 := j;
         if Temp = Temp1 + 1 then
         begin
            Delete(s, i, 3);
            Insert(SYM[Temp1], s, i);
            Insert(SYM[Temp + 1], s, i + 1);
         end;
      end;
      Inc(i);
   end;
   FixNotValid := s;
end;

function GetUserInput(): String;
var
   Method: Word;
   Path: String;
begin
   Method := InputMethod;
   if (Method = USE_CONSOLE) then
      GetUserInput := GetUserInputFromConsole
   else
   begin
      Path := GetUserInputPath;
      GetUserInput := GetUserInputFromFile(Path);
   end;
end;

procedure ResultPrint(value: Integer; s: String);
var
   Method: Word;
   Path: String;
begin
   Method := OutputMethod;
   if (Method = USE_CONSOLE) then
      PrintInConsole(value, s)
   else
   begin
      Path := GetUserOutputPath;
      PrintInFile(Path, value, s);
   end;
end;

procedure PrintTask;
begin
   Writeln('Данная программа переводит введёное число в римскую систему счисления');
end;

procedure Main();
var
   s: String;
   Value, Err: Integer;
begin
   PrintTask;
   s := GetUserInput;
   s := DeleteNotSYM(s);
   val(s, Value, Err);
   s := ConvertToRim(Value);
   s := Check4Same(s);
   s := FixNotValid(s);
   ResultPrint(Value, s);
   Writeln('Нажмите Enter для выхода из программы');
   Readln;
end;

begin
   Main();
end.