Перевод кода с фортрана на паскаль

[Nnoitora]

Добрый день. Помогите пожалуйста с переводом кода (с фортрана на паскаль). Не совсем понимаю как работать с функциями в паскале.

dimension aa(5)
external f
common c
real c, f, a, b, eps, sum, xc, aa
write(*,*) 'vvedite a'
read(*,*) a
write(*,*) 'vvedite b'
read(*,*) b
write(*,*) 'vvedite eps'
read(*,*) eps
write(*,*) 'vvedite a1, a2, a3, a4, a5'
read(*,*) (aa(i),i=1,5)
write(*,*) 'koefficienti A'
40 format (1x,5(f5.2,' '))
write(*,40) (aa(i),i=1,5)
30 format (1x, 'tochnost', f5.3)
write (*,30) eps
write (*,10)

do c=1,3,0.5
xc=exloc(f,a,b,eps,-1)
sum=pol(aa,5,xc)
20 format (3x,f3.1,5x,f6.3,5x,f8.1)
10 format (4x,'c',7x,'xc',9x,'p')

write(*,20)c,xc,sum
enddo
end

real function F(x)
real x
common c
f=exp(x)*cos(sqrt(x+c))
end

real function exloc(f,a,b,eps,m)
external F
common c
real f,c,a,b,eps,x,ext,xm
integer m
ext=F(x)
xm=a
do x=a,b,eps/2.0
if (m*f(x).gt.m*ext) then
ext=F(x)
xm=x
endif
enddo
exloc=xm
end

real function pol(a,m,x)
dimension A(m)
real a,x
integer i,m
pol=0
do i=1,m
pol=pol+a(i)*x**(m-i)
enddo
end