Синтаксическая ошибка в программе.

[Демик]

Здравствуйте, есть код программы, он взят из методички, т.е. должен быть рабочим, но почему-то при сборке выскакивает сообщение о синтаксической ошибке, признаюсь, pascal я не изучал, а тут вот нужно воспользоваться этим кодом, подскажите почему может появляться эта ошибка?

uses
 	crt,dos;
 var
  f1:text;
  f2:file of real;
  a,b,c,d:real;
  i1:longint;
  r1:real;
begin
 clrscr;
 writeln('programm module run');
 assign(f1,'с1.dat');
 reset(f1);
 read(f1,a); чтение данных  //ошибка в этой строке. Появляется сообщение Error 5: syntax error 
 read(f1,b); чтение данных
 read(f1,c); чтение данных
 read(f1,d); чтение данных

 for i1:=1 to 12000000 do       основной цикл для усиления вычислительной  сложности задачи по сравнению с обменом по сети
      begin
   gotoxy(1,1); 	установка курсора в позицию 1, 1
    writeln(i1); 	вывод текущего значения переменной цикла
 	   r1:= (a/b+d-c)4,5; вычисление первой части 
формулы
   writeln(r1:5:2); 	вывод результата на экран
     end;
 assign(f2,'out.dat');
 rewrite(f2);
 write(f2,r1); запись результата в файл
 close(f1);
 close(f2);
 writeln('programm module end');
end.

[Демик]

Разобрался, оказывается в паскале очень неудобный способ комментирования.Должно быть так:

 program c1;
 uses
 crt,dos;
 var
  f1:text;
  f2:file of real;
  a,b,c,d:real;
  i1:longint;
  r1:real;
begin
 clrscr;
 writeln('programm module run');
 assign(f1,'с1.dat');
 reset(f1);
 read(f1,a); {чтение данных}  
 read(f1,b); {чтение данных}
 read(f1,c); {чтение данных}
 read(f1,d); {чтение данных}

 for i1:=1 to 12000000 do       {основной цикл для усиления вычислительной  сложности задачи по сравнению с обменом по сети}
      begin
   gotoxy(1,1); 	{установка курсора в позицию 1, 1}
    writeln(i1); 	{вывод текущего значения переменной цикла}
 	   r1:= (a/b+d-c)*4.5; {вычисление первой части 
формулы}
   writeln(r1:5:2); 	{вывод результата на экран}
     end;
 assign(f2,'out.dat');
 rewrite(f2);
 write(f2,r1); {запись результата в файл}
 close(f1);
 close(f2);
 writeln('programm module end');
end.