Работа с подпрограммами

[yana1996]

Пожалуйста помогите переделать Код под Графический интерфейс ...
Зарание спасибо !!!

const nmax=100;
type mas=array[1..nmax] of real;
procedure Vvod(var a:mas;var n:integer;c:char);
var i:integer;
begin
repeat
write('Размер массива ',c,' до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
a[i]:=10*random;
clrscr;
end;
procedure Vyvod(a:mas;n:integer;c:string);
var i:integer;
begin
writeln(c);
for i:=1 to n do
write(a[i]:5:2);
writeln;
end;
procedure Hill(var a:mas;n:integer);
var i,j,k,imn,p:integer;
     x:real;
begin
k:=n div 2; //количество перестановок
for i:=1 to k do
 begin
  imn:=i; //найдем 1 минимальный в еще не отсортированных
  for j:=i+1 to n-i+1 do
  if a[j]<a[imn] then imn:=j;
  x:=a[imn];//нашли
  for p:=imn downto i+1 do //здвинем на него часть массива впереди
  a[p]:=a[p-1];
  a[i]:=x;//вставим элемент на место в первой части массива
  imn:=i+1;//ищем второй минимальный
  for j:=i+1 to n-i+1 do
  if a[j]<a[imn] then imn:=j;
  x:=a[imn];//нашли
  for p:=imn to n-i do //сдвинем на него часть массива впереди
  a[p]:=a[p+1];
  a[n-i+1]:=x;//вставим на место во второй части массива
 end;
end;
var a,b,c:mas;
    na,nb,nc:integer;
begin
randomize;
Vvod(a,na,'A');
Vvod(b,nb,'B');
Vvod(c,nc,'C');
Vyvod(a,na,'Исходный массив А');
Hill(a,na);
Vyvod(a,na,'Отсортированный массив А');
Vyvod(b,nb,'Исходный массив B');
Hill(b,nb);
Vyvod(b,nb,'Отсортированный массив B');
Vyvod(c,nc,'Исходный массив C');
Hill(c,nc);
Vyvod(c,nc,'Отсортированный массив C');
end.

[newerow1989]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    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}

const nmax=100;
type mas=array[1..nmax] of real;

procedure Vvod(var a:mas;n:integer);
var i:integer;
begin
   for i:=1 to n do
      a[i]:=10*random;
end;

procedure Vyvod(a:mas;n:integer;c:string;Memo:TMemo);
var i:integer;
begin
   Memo.Lines.Add('');
   Memo.Lines.Add(c);
   for i:=1 to n do
      Memo.Lines.Add(FloatToStr(a[i]));
end;

procedure Hill(var a:mas;n:integer);
var i,j,k,imn,p:integer;
     x:real;
begin
k:=n div 2; //количество перестановок
for i:=1 to k do
 begin
  imn:=i; //найдем 1 минимальный в еще не отсортированных
  for j:=i+1 to n-i+1 do
  if a[j]<a[imn] then imn:=j;
  x:=a[imn];//нашли
  for p:=imn downto i+1 do //здвинем на него часть массива впереди
  a[p]:=a[p-1];
  a[i]:=x;//вставим элемент на место в первой части массива
  imn:=i+1;//ищем второй минимальный
  for j:=i+1 to n-i+1 do
  if a[j]<a[imn] then imn:=j;
  x:=a[imn];//нашли
  for p:=imn to n-i do //сдвинем на него часть массива впереди
  a[p]:=a[p+1];
  a[n-i+1]:=x;//вставим на место во второй части массива
 end;
end;




procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:mas;
    na,nb,nc:integer;
begin
   randomize;
   na:=StrToInt(Edit1.Text);
   nb:=StrToInt(Edit2.Text);
   nc:=StrToInt(Edit3.Text);
   Vvod(a,na);
   Vvod(b,nb);
   Vvod(c,nc);
   Vyvod(a,na,'Исходный массив А',Memo1);
   Hill(a,na);
   Vyvod(a,na,'Отсортированный массив А',Memo1);
   Vyvod(b,nb,'Исходный массив B',Memo2);
   Hill(b,nb);
   Vyvod(b,nb,'Отсортированный массив B',Memo2);
   Vyvod(c,nc,'Исходный массив C',Memo3);
   Hill(c,nc);
   Vyvod(c,nc,'Отсортированный массив C',Memo3);
end;

end.