program Project8;

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

uses
  System.SysUtils;
Type
  TArr = array of integer;

function NODforTwo( M : integer; F : integer) : integer;
   begin
      while ( M <> F ) do
         if ( M > F) then
            M := M - F
         else
            F := F - M;
      NODforTwo := M;
   end;

function FindingFile(): TArr;
var
  CorrectFile: Boolean;
  NameOfFile: String;
  Input : TextFile;
  n, i , k , M , F: integer;
  A : TArr;
begin
  repeat
    Write('Введите путь к файлу, с которого хотите считать информацию :');
    Readln(NameOfFile);
    CorrectFile := True;
    try
      AssignFile(Input, NameOfFile);
      Reset(Input);
      if not eof(Input) then
         begin
            ReadLn(Input, n);
            SetLength(A , n);
            for i := 0 to (n - 1) do
               Read(Input, A[i]);
            CloseFile(Input);
         end
      else
         begin
            WriteLn(' Файл оказался пустым ');
            CloseFile(Input) ;
         end;
    except
      CorrectFile := False;
      Writeln('Не удалось найти файл по такому пути', NameOfFile);
    end;
  until CorrectFile;
  FindingFile := A;
end;

function NOD(A : TArr ) : integer;
var
   n , i , k : integer;
   begin
      k := NODforTwo(A[1] , A[2]);
      for i := 3 to n do
         k := NODforTwo(k, A[i]);
      NOD := k;
   end;

procedure SaveFile(NameOutput : String ; k: integer);
var
  Output: TextFile;
  begin
     Writeln('Введите путь к файлу для записи : ');
     Readln(NameOutput);
     AssignFile(Output,NameOutput);
     Rewrite(Output);
     WriteLn(Output , 'Наибольший общий делитель : ', k);
     CloseFile(Output);
     ReadLn;
  end;

var
  k : integer;
  A : TArr;
  NameOutput : String;
begin
  WriteLn('Дан массив А, состоящий из n-натуральных чисел.Найти наибольший общий делитель элементов массива.');
  A := FindingFile();
  k := NOD(A);
  SaveFile(NameOutput, k);
  ReadLn;
end.