ЗАДАЧА НА МАССИВ

uses crt;

const n=20;
var matrix:array[1..n]of integer;
    i,max,min,imax,imin,swap:integer;
    j:boolean;
begin
randomize;
j:=false;
for i:=1 to n do
 begin
  matrix:=-10+random(20);
  write(' ',matrix);
 end;
writeln;
min:=matrix[1];
imin:=0;
imax:=0;
for i:=1 to n do
 if matrix<0 then begin max:=matrix; imax:=i;break;end;
if imax<>0 then j:=true;
swap:=0;
for i:=1 to n do
 begin
  if (matrix mod 2)<>0 then
  begin
   inc(swap);
   if swap=3 then
    if matrix<0 then writeln('otricatelnyi') else writeln('pologitelnyi');
  end;
  if min>matrix then begin min:=matrix; imin:=i;end;
  if (matrix<0) and (matrix>max) then begin max:=matrix; imax:=i; end;
 end;
if swap<3 then writeln('no 3 nechetnyi element');
if j then
begin
writeln('max:=',max,' min:=',min);
swap:=matrix[imax];
matrix[imax]:=matrix[imin];
matrix[imin]:=swap;
end
else writeln('max:=no element in massive',' min:=',min);
for i:=1 to n do
 write(' ',matrix);
writeln;
for i:=1 to n do
 if matrix>0 then matrix:=0;
for i:=1 to n do
 write(' ',matrix);
writeln;
readln;
end.