написать программу в паскале

<script type="text/javascript">

   // создание многомерного массива.

       var arr = new Array(5);

 arr[0]= new Array(-1, 2, -3, 4, 5);  

 arr[1]= new Array(6, 7, -8, 9, 1);  

 arr[2]= new Array(4, -5, 6, 7, 8);

 arr[3]= new Array(-3, 2, -1, 9, 8);

 arr[4]= new Array(7, -6, -5, 4, -3);  

        for (var i = 0; i < arr.length; i++) {  

           for (var j = 0; j < arr[i].length; j++)  {          

                 if (i==j){

                   if (arr[i][j] < 0)

    arr[i][j]= "0"

               else

                   arr[i][j] = "1" ;

                //вывод заполненной Ячейки сразу      

           }  

  document.write(" "  +arr[i][j]+  "");            

       }  

 document.write("<br/>");

}            

</script>

Program fantscrin;

 const n = 10;  

 Var a: array [1..n] of integer;

     b: array [1..n] of integer;

     i,j:integer;

Begin

 j:=0;

 for i:=1 to n do

   a[i]:=random(20);

 for i:=1 to n do

   write(a[i], '  ');

 for i:=1 to n do

   if (i mod 2 <> 0) then  

                         begin

                            j:=j+1;  

                            b[j]:=a[i];

                          end;

 writeln('');

 for i:=1 to n do

   a[i]:=0;

 for i:=1 to j do

   a[i]:=b[i];

 for i:=1 to j do

   write(a[i], '  ');

 writeln('');

 writeln(j);

End.