Вправа 10.2

Напишіть програму для реалізації процедури виведення даних з одновимірного масиву цілих чисел до текстового поля в рядок. 

Доповнити програму кодом для реалізації цих процедур.

Приклад оформлення даної програми без використання процедури для виводу в текстове поле:

var

   words: array[1..100] of integer;

   p: integer;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

    s:string;

begin

   s := trim(Memo1.Text);

   while pos(#13, s)<>0 do Delete(s,pos(#13, s),1);

   while pos(#10, s)<>0 do Delete(s,pos(#10, s),1);

   p:=0;

   while pos(' ', s) <> 0 do

   begin

     p:=p+1;

     words[p]:=StrToInt(copy(s,1,pos(' ', s)-1));

     delete(s,1,pos(' ', s));

   end;

   p:=p+1;

   words[p]:=StrToInt(s);

   Form1.Edit1.Text:='';

   for i:=1 to p do begin

        Form1.Edit1.Text:=Form1.Edit1.Text+' '+IntToStr(words[i]);

   end;

   Form1.Edit1.Text:=Trim(Form1.Edit1.Text);

end;