АЕ
Алексей Елистратов
Помогите программу переделать из паскаля в делфи
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.