Составьте программу, которая запрашивает значения одномерного числового массива А. Формирует и выводит на - Pascal ABC

Program abc;
    var a,b: array [1..100] of integer;
        i,n, pr,k:integer;
    begin
         WRiteln('Введите количество элементов массива А');
         readln(n);
         for i:=1 to n do
             begin
                  writeln('Введите ', i,' элемент массива');
                  readln(a[i]);
             end;
         for i:=1 to n do
            b[i]:=a[i]*(-1);
         writeln ('Массив В');
         for i:=1 to n do
             write(b[i], ' ');
         pr:=1;
         For i:=1 to n do
             if a[i]<>0 then
                pr:=pr*a[i];
         writeln;
         writeln('Введите К');
         readln(k);
         for i:=1 to n do
                   b[k]:=pr;
         writeln ('Массив В');
         for i:=1 to n do
             write(b[i], ' ');
 
    end.