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

[Amerikano]

Здравствуйте.Помогите пожалуйста перевести программу с фортрана на паскаль.

	program num1
	use dflib
	implicit none
	include 'param.inc'
	include 'common.inc'
	integer i,j,k,z
	real(4) TETTA1(0:n),z1,z2,r,dx,dt
	type(xycoord)xy1
	dt=(5.e-5)
	dx=1./n
	TETTA=0.
	TETTA(0)=1.
	TETTA1=TETTA
	r=dt/dx/dx
		
	call graph_axis(300,100,400,200,0.,1.,0.,1.)
	
	pause
	z=20
	do k=1,100000

	 do j=1,n-1
	  TETTA1(j)=r*(TETTA(j-1)+TETTA(j+1))+(1.-2.*r)*TETTA(j)
	 enddo
	
	 TETTA=TETTA1
	 if(k.EQ.z)then
	  call graph_axis(300,100,400,200,0.,1.,0.,1.)
	  j=setcolor(4) 
	  call moveto(300,300,xy1)       
	  do i=0,n
	   z1=(i)*dx
	   z2=TETTA(i)
	   j=lineto(300+400*z1,100+(1-z2)*200) 
	  enddo
	  z=z+20
	 endif
	  
	enddo
	end program num1

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.