Лабалаторная работа 4. Задание 1. Вариант 6.

task416.pas

program Project1;

{$MODE DELPHI}

uses
  SysUtils;

Type
  TStringArray = Array of String;

var arr: TStringArray;
var arrSize: Integer;
var i: Integer;
begin
  while True do
  begin
    try
      Write('Please, enter array size: ');
      ReadLn(arrSize);
      break;
    except
      on E: Exception do
        Writeln('Array size value should be a integer!');
    end;
  end;

  SetLength(arr, arrSize);
  for i := 0 to arrSize - 1 do
  begin
    Write('Please, enter ', i, ' element: ');
    ReadLn(arr[arrSize - i - 1]);
  end;

  Write('Elements: ');
  for i := 0 to arrSize - 1 do
  begin
    Write(arr[i], ' ');
  end;
  WriteLn;

  WriteLn('Enter something for exit...');
  ReadLn;
end.