Программа

Unit Mod_23_2;

Interface
  Const DataQuantity=5;                        { Количество элементов данных }
  Type DataType=array[1..DataQuantity] of integer;   { Внутренний тип данных }
  Procedure GetData(var Data:DataType);         { Процедура получения данных }

Implementation
  Procedure GetData;                   { Описание процедуры получения данных }
    var i:integer;                     { Счетчик }
        FileName:string[79];           { Имя файла }
        Inp:text;                      { Файловая переменная }
    Begin
      Write('Введите имя файла исходных данных ');
                                   { Вывод приглашения ввести имя файла }
      ReadLn(FileName);            { Ввод имени файла }
      Assign(Inp,FileName);        { Связывание файловой переменной с файлом }
      Reset(Inp);                  { Открытие файла для чтения }
      if FileName='' then FileName:='CON';
                           { Переопределение пустого имени файла под консоль }
      for i:=1 to Length(FileName) do FileName[i]:=UpCase(FileName[i]);
                                { Перевод строчных букв в строке в прописные }
      if (FileName='CON') { Чтение файла в зависимости от имени }
        then
          for i:=1 to DataQuantity do   { Цикл просмотра файла (клавиатуры) }
            begin
              Write('Введите целое число ');{ Вывод приглашения ввести число }
              ReadLn(Data[i])               { Ввод числа }
            end
        else
          for i:=1 to DataQuantity do
            Read(Inp,Data[i]);                        { Цикл просмотра файла }
      Close(Inp)                                      { Закрытие файла }
    End;

BEGIN
END.