unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
IntArray : array[1..8] of integer;
K : integer;
Line1, Line2 : String;
begin
Line1 := 'All Values: '  ;
for k := 1 to 8 do
  begin
    IntArray[k] := strtoint(inputbox('Numbers','Enter Number', ' '));
    Richedit1.lines[0]:= Line1 + inttostr(IntArray[k]) + ' ';
    Line1:=Richedit1.lines[0];
   end;
K:=0;
Richedit1.lines.add(' ');
Richedit1.lines.add('Doubled values: ');
line2:=richedit1.lines[2];
   for k := 1 to 8 do
  begin
    Richedit1.lines[2]:= line2 + inttostr((IntArray[k]) * 2) + ' ';
    Line2:=Richedit1.lines[2];
   end;
K:=0;

end;

end.