[Alegun]

не могли бы вы написать полный код задачи......просто вообще не понимаю...

Нет слов

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 L: array of integer;
 i: integer;
begin
   // Устанавливаем размер массива L в соответствии с данными в Мемо1
 SetLength(L, Memo1.Lines.Count);

 // Заполнение массива данными из Мемо1
 for i:= Low(L) to High(L) do
  if Memo1.Lines.Strings[i] <> '' then L[i]:= StrToInt(Memo1.Lines.Strings[i]);

  // Выбор - добавить/перенести первый элемент в конец массива
  if CheckBox1.Checked then SetLength(L, Length(L)+1);
  L[High(L)]:= L[Low(L)];
  Memo1.Clear;
 // Показ в Мемо1 произведенных изменений
 for i:= Low(L) to High(L) do Memo1.Lines.Add(IntToStr(L[i]));
end;

Исходник тут, вторая задача тоже.