Даны 2 массива.Заменить в каждом из них первые K элементов на противоположные по знаку. & В заданном массиве из N строк переставить строки...

program mass;
uses crt;
var
 a:array [1..12] of integer;
 b:array [1..9] of integer;
 i,j,k,z,n,m:integer;
 
begin
   clrscr;
   randomize; 
        writeln('massiv (A): ');
        for i:= 1 to 12 do begin
              a[i]:=random(12);
              write(a[i]:4);
        end;
        writeln;
 
writeln('Massiv (B): ');
       for j:= 1 to 9 do begin
            b[j]:=random(12);
            write(b[j]:4);
       end;
writeln;
 
writeln('Vvedite K: ');
     readln(k);
 
 
   z:=-1;
        writeln('Massiv (A) posle: ');
        for i:=1 to k do
   begin
       write(a[i]*z:4);
       end;
   writeln;
   writeln;
writeln('Massiv (B) posle:');
         for j:= 1 to k do
         begin
      write(b[j]*z:4)
   end;
readkey;
end.

for i:=1 to k do
   begin
       write(a[i]*z:4);

for i:=1 to k do
a[i]:=a[i]*z;
for i:=1 to 12 do
write(a[i]:4);