Создать два одномерных массива, состоящих из целых чисел. Элементы массива вводятся с клавиатуры. В первом массиве найти

Uses CRT;Var i,n:integer; imax:integer; a:array[1..100] of integer;beginrepeatwrite(\'Введите \',i+1,\' число: \');readln(n);until n in [1..100];randomize;imax:=1;for i:=1 to n dobegin a[i]:=random(10)-3; write(a[i]:3); if a[i]>a[imax] then imax:=i else if a[i]=a[imax] then imax:=i;end;writeln;writeln(\'количество четных чисел = \',a)end.Второй вариантa: array[1..10] of integer; i, k: integer; begin for i := 1 to 100 do begin write(i, \') \'); readln(a[i]); end; writeln(\'Ввести четное); for i := 1 to 99 do if i mod 2 = 0 then begin k := a[i]; a[i] := a[i + 1]; a[i + 1] := k; end; for i := 1 to 100 do writeln(i, \') \', a[i]);end.