В чем ошибка?

[Smartbass]

Такая вот программа:

Program ControlWork2;
Uses crt;
var
T,K,Md,Mc,n:real;
R,I,U,W,J : real;

Procedure readfile(var R,I,U,W,J :real;var fin : text);
begin
   read(fin,R); {soprotivlenie}
   read(fin,I); {sila toka}
   read(fin,U); {napryazhenie}
   read(fin,w); {chastota}
   read(fin,J); {moment inercii}
   readln(fin);
end;

Function MomentDv(U,I,R:real):real; {moment dvizheniya}
Begin
K:=(U-I*R)/w;
MomentDv:=K*U/R-K*w/R;
End;

Function MomentStat(W,J:real):real; {moment staticheskij}
Begin
MomentStat:=W*J;
End;

Procedure Create(var fin,fout:text);
begin
  while not eof(fin) do begin
    readfile(R,I,U,W,J,fin);
    Md:=MomentDv(U,I,R);
    Mc:=MomentStat(W,J);
    T:=J*W/(Md-Mc);
    writeln (fout,T:6:4, '|', W:8, '|', Md:8:4, '|', Mc:8:4);
    writeln (T:6:4, '|', W:8, '|', Md:8:4, '|', Mc:8:4);
  end;
{Основная прога}
begin
assign(fin,'C:\Tpascal\test.txt');{входной файл}
assign(fout,'C:\Tpascal\test1.txt');{выходной файл}
reset(fin);
rewrite(fout);
Create(fin,fout);
close(fin);
close(fout);
end.

При компиляции на последнем "end" курсор останавливается и появляется ошибка 85 "Ожидается ;". Подскажите, пожалуйста, в чем ошибка?

[uberchel]

Program ControlWork2;
Uses crt;
var
T,K,Md,Mc,n:real;
R,I,U,W,J : real;

Procedure readfile(var R,I,U,W,J :real;var fin : text);
begin
   read(fin,R); {soprotivlenie}
   read(fin,I); {sila toka}
   read(fin,U); {napryazhenie}
   read(fin,w); {chastota}
   read(fin,J); {moment inercii}
   readln(fin);
end;

Function MomentDv(U,I,R:real):real; {moment dvizheniya}
Begin
K:=(U-I*R)/w;
MomentDv:=K*U/R-K*w/R;
End;

Function MomentStat(W,J:real):real; {moment staticheskij}
Begin
MomentStat:=W*J;
End;

Procedure Create(var fin,fout:text);
begin
  while not eof(fin) do begin
    readfile(R,I,U,W,J,fin);
    Md:=MomentDv(U,I,R);
    Mc:=MomentStat(W,J);
    T:=J*W/(Md-Mc);
    writeln (fout,T:6:4, '|', W:8, '|', Md:8:4, '|', Mc:8:4);
    writeln (T:6:4, '|', W:8, '|', Md:8:4, '|', Mc:8:4);
  end;
  end;
{Основная прога}
begin
assign(fin,'C:\Tpascal\test.txt');{входной файл}
assign(fout,'C:\Tpascal\test1.txt');{выходной файл}
reset(fin);
rewrite(fout);
Create(fin,fout);
close(fin);
close(fout);
end.