Известна информация о стоимости 1 килограмма двадцати сортов конфет. подготовить лист для получения ответа на вопрос: верно ли, что
самые дешевые конфеты стоят меньше а рублей за 1 кг? (значение а
задается в отдельной ячейке.)

сделать в !

Var m1,m2,m3:array of integer;
i,n:integer;
begin
  write('Введите размер массивов');
  readln(n);
  setlength(m1,n);
  setlength(m2,n);
  setlength(m3,n);
  //Заполнение массивов
  for i:=0 to n-1 do begin
    m1[i]:=random(21)-10;
    m2[i]:=random(21)-10;
    m3[i]:= m1[i]+m2[i];
  end;
  //Вывод массивов
  for i:=0 to n-1 do write(m1[i]:4);
  writeln;
  for i:=0 to n-1 do write(m2[i]:4);
  writeln;
  for i:=0 to n-1 do write(m3[i]:4);
  writeln;
end.

Тестовое решение:
Введите размер массивов 10
   7 -10   9  -4   8  -6  10   4   6   2
  10  -3  -2  -7   1   9   2   3   5  -6
  17 -13   7 -11   9   3  12   7  11  -4

1. Программа, создающая тестовый файл.

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var f: file of integer;
  var t:integer;
  Assign(f,'input.dat'); Rewrite(f);
  for var j:=1 to 5 do begin
    for var i:=1 to 10 do begin t:=Random(10,99); Write(f,t) end;
    for var i:=1 to 10 do begin t:=-Random(10,99); Write(f,t) end
    end;
  f.Close;
end.

2. Программа, которую требовалось написать

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var f,g: file of integer;
  var a:=new integer[20];
  var t:integer;
  Assign(f,'input.dat'); Reset(f);
  Assign(g,'output.dat'); Rewrite(g);
  while not f.Eof do begin
    for var i:=0 to 19 do Read(f,a[i]);
    a:=a[10:15]+a[0:5]+a[15:20]+a[5:10];
    for var i:=0 to 19 do Write(g,a[i])
    end;
  f.Close;
  g.Seek(0);
  while not g.Eof do begin Read(g,t); Print(t) end;
  g.Close
end.