Паскаль! Автоматически задается массив, сост. Из 20 элементов

program P1; usescrt; varmas: array[1… 20] of integer; i,j,k: integer; tmp: string; beginclrscr; writeln ('Start array: '); for i: =1 to 20 do beginmas[i]: =random (100); write (mas[i],'); end; for i: =1 to 20 do beginif mas[i] mod 2=0 then mas[i]: =0; end; for i: =1 to 20 do beginif mas[i]=0 then beginfor j: =20 downto i do if mas[j] <> 0 then begink: =mas[j]; mas[j]: =mas[i]; mas[i]: =k; end; end; end; writeln ('); writeln ('Result array: '); for i: =1 to 20 do write (mas[i],'); readln (tmp); read (tmp); end.