Используя линейный массив выведите позицию элемента который в два раза больше первого в паскале

Const n=20;

var a:array[1 ... n] of integer;

i, k:integer;

begin

Randomize;

for i:=1 to n do begin

a[i]:=random (51) ;

write (a[i],' ') ;

end;

writeln;

k:=0;

for i:=2 to n do

if a[i]=2*a[1] then k:=i;

if k>0 then writeln ('k = ', k)

else writeln ('Искомый элемент отсутствует') ;

end.

Пример:

21 15 6 25 0 39 13 15 0 14 26 20 42 38 39 46 24 45 35 49

k = 13