Подпрограммы

[santafer]

Помогите пожалуйста переделать в Графический вид

type
 RArray = array[1..10] of Real;

var
 A,B,C:RArray;
 Na,Nb,Nc:integer;

Procedure Bell(var A:RArray; N:integer);
 var k,k2:integer;
 TempR: RArray;
begin

 for k:=1 to N-1 do
  for k2:=1 to N-k do
   begin
    if A[k2]<A[k2+1] then
     begin
      A[k2]:=A[k2]+A[k2+1];
      A[k2+1]:=A[k2]-A[k2+1];
      A[k2]:=A[k2]-A[k2+1];
     end;
   end;

 for k:=1 to N do
  if (k mod 2)<>0 then TempR[(k div 2)+1]:=A[k]
  else TempR[N-(k div 2)+1]:=A[k];
 A:=tempR;
end;

Procedure EnterArray(var A:RArray; var N:integer);
var i:integer;
begin
 Write('Size:');
 Readln(N);
 for i:=1 to N do
  begin
   Write(i,': ');
   Readln(A[i]);
  end;
end;

Procedure InputArray(var A:RArray; var N:integer);
var i:integer;
begin
 Writeln('---');
 for i:=1 to N do Writeln(i,': ',A[i]);
 Writeln('---');
end;

begin
 EnterArray(A,Na);
 Bell(A,Na);
 InputArray(A,Na);

 EnterArray(B,Nb);
 Bell(B,Nb);
 InputArray(B,Nb);

 EnterArray(C,Nc);
 Bell(C,Nc);
 InputArray(C,Nc);
end.

[newerow1989]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type
 RArray = array[1..10] of Real;

var
 A,B,C:RArray;
 Na,Nb,Nc:integer;

Procedure Bell(var A:RArray; N:integer);
 var k,k2:integer;
 TempR: RArray;
begin

 for k:=1 to N-1 do
  for k2:=1 to N-k do
   begin
    if A[k2]<A[k2+1] then
     begin
      A[k2]:=A[k2]+A[k2+1];
      A[k2+1]:=A[k2]-A[k2+1];
      A[k2]:=A[k2]-A[k2+1];
     end;
   end;

 for k:=1 to N do
  if (k mod 2)<>0 then TempR[(k div 2)+1]:=A[k]
  else TempR[N-(k div 2)+1]:=A[k];
 A:=tempR;
end;

Procedure EnterArray(var A:RArray; var N:integer; Memo:TMemo);
var i:integer;
begin
 N:=Memo.Lines.Count;
 for i:=1 to N do
    A[i]:=StrToFloat(Memo.Lines[i-1]);
end;

Procedure InputArray(var A:RArray; var N:integer; Memo:TMemo);
var i:integer;
begin
 Memo.Lines.Add('---');
 for i:=1 to N do Memo.Lines.Add(IntToStr(i)+': '+FloatToStr(A[i]));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   EnterArray(A,Na,Memo1);
   Bell(A,Na);
   InputArray(A,Na,Memo1);

   EnterArray(B,Nb,Memo2);
   Bell(B,Nb);
   InputArray(B,Nb,Memo2);

   EnterArray(C,Nc,Memo3);
   Bell(C,Nc);
   InputArray(C,Nc,Memo3);
end;

end.