Помогите пожалуйста перевести код программы из Паскаля в Делфи

[svend]

uses crt;
var x:array [1..100] of integer;
n,i:integer;
begin
clrscr;
writeln('razmer massiva='); readln(n);
for i:=1 to n do begin
read(x[i]);
for i:=1 to n do
write(x[i],' '); end;
for i:=1 to n do begin
if i>0 then x[i]:=x[i]-x[1] else
if i<0 then x[i]:=x[i]-n;
end;
for i:=1 to n do write (x[i],' ');
readln;

[eoln]

Нужно убрать

uses crt;

и

clrscr;

end в конце куда-то исчез

[min@y™]

замени

uses crt;

на

{$apptype console}

и выкинь

clrscr;

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var x:array [1..100] of integer;
  n,i:integer;
begin
 n:=StrToInt(Edit1.Text);
 for i:=1 to n do
 begin
    x[i]:=StrToInt(Memo1.Lines[i-1]);
 end;
 for i:=1 to n do
 begin
    if i>0 then x[i]:=x[i]-x[1] else
    if i<0 then x[i]:=x[i]-n;
 end;
 Label1.Caption:='';
 for i:=1 to n do
   Label1.Caption:=Label1.Caption+IntToStr(x[i])+' ';
end;