Встречено '.', а ожидалось ';'

type reals = file of real;
procedure p(f,g,h:reals);
var k,sum : real;
  cnt : integer;
begin
  Reset(f);
  sum:=0;  cnt:=0;
  while not eof(f) do begin
    Read(f, k); sum:=sum+k; Inc(cnt);
  end;
     if cnt=0 then Exit; {если файл пустой, выходим}
  sum := sum/cnt; {найдём среднее} 
  Reset(g);
  Seek(g, FileSize(g)); {переход в конец файла g}
  Reset(h);
  Seek(h, FileSize(h));  {переход в конец файла h}
  Reset(f); {перешли в начало файла f}
  while not eof(f) do begin
    Read(f, k); 
    if k<sum
      then Write(g, k)
      else Write(h, k)
  end;
  Close(f); 
  Close(g);
  Close(h); 
 end.

type reals = file of real;
procedure p(var f,g,h:reals);
var k,sum : real;
  cnt : integer;
begin
  Reset(f);
  sum:=0;  cnt:=0;
  while not eof(f) do begin
    Read(f, k); sum:=sum+k; Inc(cnt);
  end;
     if cnt=0 then Exit; {если файл пустой, выходим}
  sum := sum/cnt; {найдём среднее}
  Reset(g);
  Seek(g, FileSize(g)); {переход в конец файла g}
  Reset(h);
  Seek(h, FileSize(h));  {переход в конец файла h}
  Reset(f); {перешли в начало файла f}
  while not eof(f) do begin
    Read(f, k);
    if k<sum
      then Write(g, k)
      else Write(h, k)
  end;
  Close(f);
  Close(g);
  Close(h);
 end;
 var f,g,h:reals;
 begin
 assign(f,'filef');
 assign(g,'fileg');
 assign(h,'fileh');
 p(f,g,h);
 end.

.....
var f,g,h:reals;
 v,b,n:string;
 begin
 assign(f,'c:\filef.txt');
 rewrite(f);
 read (v);
 write(f,v);
 close(f);
 assign(g,'c:\fileg.txt');
 rewrite(g);
 read (b);
 write(g,b);
 close(g);
 assign(h,'c:\fileh.txt');
 rewrite(h);
 read (n);
 write(h,n);
 close(h);
 p(f,g,h);
 end.

v,b,n:string;

v,b,n:real;

type reals = file of real;
procedure p(var f,g,h:reals);
var k,sum : real;
  cnt : integer;
begin
  Reset(f);
  sum:=0;  cnt:=0;
  while not eof(f) do
   begin
    Read(f, k);
    sum:=sum+k;
    Inc(cnt);
   end;
  if cnt=0 then Exit; {если файл пустой, выходим}
  sum := sum/cnt; {найдём среднее}
  Reset(g);
  Seek(g, FileSize(g)); {переход в конец файла g}
  Reset(h);
  Seek(h, FileSize(h));  {переход в конец файла h}
  Reset(f); {перешли в начало файла f}
  while not eof(f) do
   begin
    Read(f, k);
    if k<sum then Write(g, k)
    else Write(h, k)
   end;
  Close(f);
  Close(g);
  Close(h);
 end;
 var f,g,h:reals;
     x:real;
     i:byte;
 begin
 randomize;
 assign(g,'fileg');
 rewrite(g);
 assign(h,'fileh');
 rewrite(h);
 {создадим непустые файлы g,h}
 for i:=1 to 5 do
  begin
   x:=10*random;
   write(g,x);
   x:=10*random;
   write(h,x);
  end;
 {создадим файл f как написано в картинке}
 assign(f,'filef');
 rewrite(f);
 writeln('Введите в файл вещественные числа, окончание ввода 0');
 repeat
 readln(x);
 write(f,x);
 until x=0;
 p(f,g,h);
 writeln('Содержание файла F');
 reset(f);
 while not eof(f) do
  begin
   read(f,x);
   write(x:0:1,' ');
  end;
 close(f);
 writeln;
 writeln('Содержание файла G');
 reset(g);
 while not eof(g) do
  begin
   read(g,x);
   write(x:0:1,' ');
  end;
 close(g);
 writeln;
 writeln('Содержание файла H');
 reset(h);
 while not eof(h) do
  begin
   read(h,x);
   write(x:0:1,' ');
  end;
 close(h);
 end.