процедуры и функции

[Ivanacats]

Составить программу с использованием конструкции Function, которая возвращает значение радиуса окружности по заданной длине Radius(L)
Значение радиуса окружности вводиться из основной программы с клавиатуры.

Я делаю что то не правильно, совсем запуталась=( не обязательно писать программу с использованием файла

 Program dasha;
 {описание глобальных массивов и переменных}
type
Vector=array[1..100] of Real;
var
y:Vector;
n:integer;
fl:text;
a,R,L,P:real;
 function R_x(var w:Vector): real;
var i:integer; a:real;
begin
a:=w[1];
for i:=1 to n do
R:=a;
end;
begin
writeln ('Vvedite dliny okrywnostu');
readln (L);
P:=3.14;
R:=L/2*P;
begin
assign(fl,'D:\Даша\В.txt');
reset(fl);
while not eof (fl) do
begin
readln (fl,y[n]);
end;
Close(fl);
a:=R_x(y);
writeln (a:10:2);
end;
end.

[whatever]

function getrad(l:real):real;
  begin
    getrad:=l/(2*pi);
  end;

var
  l:real;
begin
  read(l);
  writeln('радиус окружности равен ',getrad(l));
  readln;
end.

P.S. Забыл, есть ли pi в паскале. В дэлфи точно есть. Если нет, то задай pi в константах.

[Вадим Мошев]

P.S. Забыл, есть ли pi в паскале. В дэлфи точно есть. Если нет, то задай pi в константах.

Есть. ..............

[Ivanacats]

Благодарю! Прошу прощения, что ввиду определенных обстоятельств не имела возможности ответить. В паскале пи задается как константа.