Помогите программу переделать из паскаля в делфи

program massiv;

{$APPTYPE CONSOLE}

uses crt;
var n:array[1..1000] of integer;
k,i,j: integer;

begin
clrscr;
randomize;
writeln('Введите количество эл. массива');

readln(k);
clrscr;
Writeln('полученный массив');
for i:=1 to k do
begin n[i]:=random(100);
write(n[i],' ');

end;
writeln();
writeln();
for i:=2 to k-1 do n[i]:=n[i]+n[k];

for i:=1 to k do write(n[i],' ');
readln();

end.