program task2;

{$APPTYPE CONSOLE}
{$R *.res}

uses
	System.SysUtils,
	Classes,
	StrUtils,
	Math;

type
	NumsArr = Array [0 .. 1] of String;
	SeqArr = Array of String;

procedure Split(Delimiter: Char; Str: string; ListOfStrings: TStrings);
begin
	ListOfStrings.Clear();
	ListOfStrings.Delimiter := Delimiter;
	ListOfStrings.DelimitedText := Str;
end;

function MakeSameLength(Seq1, Seq2: String): NumsArr;
var
	ZeroesCount, i: Integer;
	Arr: NumsArr;
	Num1, Num2: String;
begin
	Num1 := Seq1;
	Num2 := Seq2;
	ZeroesCount := Abs(Length(Num1) - Length(Num2));
	for i := 0 to ZeroesCount - 1 do
	begin
		if (Length(Num1) < Length(Num2)) then
			Num1 := '0' + Num1
		else
			Num2 := '0' + Num2;
	end;
	Arr[0] := Num1;
	Arr[1] := Num2;
	MakeSameLength := Arr;
end;

function Sum(Seq1, Seq2: String): String;
var
	Nums: NumsArr;
	i: Integer;
	Num1, Num2, Sequence: String;
	Memory, El1, El2, Res, Units: Byte;
begin
	Nums := MakeSameLength(Seq1, Seq2);
	Num1 := Nums[0];
	Num2 := Nums[1];
	Memory := 0;
	Sequence := '';
	for i := Length(Num1) downto 1 do
	begin
		El1 := StrToInt(Num1[i]);
		El2 := StrToInt(Num2[i]);
		Res := El1 + El2 + Memory;
		Units := Res mod 10;
		if (i <> 1) then
		begin
			Memory := Res div 10;
			Sequence := IntToStr(Units) + Sequence;
		end
		else
			Sequence := IntToStr(Res) + Sequence;
	end;
	Sum := Sequence;
end;

procedure ShowSequence(Seq: String);
var
	i: Integer;
begin
	for i := 1 to Length(Seq) do
		Write(Seq[i], ' ');
	Writeln;
end;

function ReadNextLine(const FileToRead: TextFile): String;
var
	CurrLine: String;
	Exception: Boolean;
begin
	Exception := false;
	try
		Readln(FileToRead, CurrLine);
	except
		Exception := true;
	end;
	if (Exception) then
		ReadNextLine := '-1'
	else
		ReadNextLine := CurrLine;
end;

function Input(): String;
var
	Value: String;
begin
	try
		Readln(Value);
	except
		Writeln('Введите корректный путь к файлу!');
	end;
	Input := Value;
end;

function ExtractNums(Str: String): String;
var
	i, Len, El: Integer;
	Num: String;
	OutputList: TStringList;
begin
	OutputList := TStringList.Create;
	Split(' ', Str, OutputList);
	Len := OutputList.Count - 1;
	for i := 0 to Len do
	begin
		El := StrToInt(Trim(OutputList[i]));
		if (El in [0 .. 9]) then
			Num := Num + IntToStr(El);
	end;
	ExtractNums := Num;
end;

procedure Main();
var
	NotCorrect, NoException: Boolean;
	FilePath, Sequence: String;
	Seq1, Seq2: String;
	InputFile, OutputFile: TextFile;
begin
	Writeln('Данная программа находит последовательность, представляющую сумму двух натуральных чисел, заданных своими последовательностями');
	Writeln;
	NotCorrect := true;
	while (NotCorrect) do
	begin
		NoException := true;
		Writeln('Введите путь до файла, в котором находятся последовательности чисел, либо его имя, если файл находится в одной директории с программой');
		FilePath := Input();
		if (not ContainsText(FilePath, '.txt')) then
			FilePath := FilePath + '.txt';
		if (FileExists(FilePath)) then
			AssignFile(InputFile, FilePath)
		else
		begin
			Writeln('Произошла ошибка при чтении файла. Убедитесь, что такой файл существует, либо проверьте имя файла.');
			NoException := false;
		end;

		if (NoException) then
		begin
			Reset(InputFile);
			Seq1 := ExtractNums(ReadNextLine(InputFile));
			Seq2 := ExtractNums(ReadNextLine(InputFile));
			Close(InputFile);
			Writeln('Числа, записанные в файле:');
			ShowSequence(Seq1);
			ShowSequence(Seq2);

			if ((StrToInt(Seq1) > 0) and (StrToInt(Seq2) > 0)) then
			begin
				Sequence := Sum(Seq1, Seq2);
				Writeln('Результат: ', Sequence);
				AssignFile(OutputFile, 'output.txt');
				Rewrite(OutputFile);
				Writeln(OutputFile, 'Результат: ', Sequence);
				Close(OutputFile);
				Writeln('Результат сохранен в файл output.txt');
				NotCorrect := false;
			end
			else
				Writeln('Файл должен состоять из последовательности натуральных чисел');
		end;
	end;
	Readln;
end;

begin
	Main();
end.