Как переделать консольное приложение в обычную программу?

[qwe1qwe2qwe3]

У меня имеется программа созданная в Delphi,( делал ее не я) она открывается в консоли. Помогите пожалуйста переделать ее в обычную программу( с интерфейсом, кнопками и тд.)

program prog_phor1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  dynamic_arr=array of integer;
var
  n: integer;
  a: dynamic_arr;
  i: integer;
  prod: integer;
  sum: integer;
function num_negative(var arr: dynamic_arr; n: integer): boolean;
var
  k,z: integer;
begin
  k:=0; //отрицательные
  z:=0; //нулевые
  for i:=0 to n-1 do begin
    if arr[i]<0 then Inc(k)
    else if arr[i]=0 then Inc(z);
  end;
  if k>z then Result:=true
  else Result:=false;
end;

begin
  try
    randomize;
    write('Vkhodnaya dlina massiva ili 0 dlya vykhoda:');
    readln(n);
    if n<=0 then exit;
    SetLength(a, n);

for i:= 0 to n-1 do begin
      a[i]:=random(5)-3;
    end;
    writeln('Array is: ');
    for i:= 0 to n-1 do begin
      write(a[i], ' ');
    end;
    writeln;

    prod:=1;
    sum:=0;
    if num_negative(a, n) then begin
      for i := 0 to n - 1 do
        if a[i]<0 then prod:=prod*a[i];
      writeln('Otritsatelnykh elementov v zadannom massive bolshe, ikh proizvedeniye ravno: ', prod);
    end else begin
      for i := 0 to n - 1 do
        if a[i]=0 then sum:=sum+i;
      writeln('Nulevykh elementov v zadannom massive bolshe, summa ikh indeksov ravna: ', sum);
    end;
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.