Pascal. Проблема с типизированными файлами

[Женька Good]

Есть программа, вроде всё правильно, но есть одно "Но"...
В программе должны использоваться типизированные файлы. Мне необходимо взять из текстового док. базу данных и обработать её, а затем в другой текст. док необходимо занести результаты обработки. Т.е. в это строке

Assign(f,'c:\base');reset(f);

после base не должно стоять расширение файла.
Вот моя программа:

Program Xme1ez_stroki_more;
Uses Crt;
Type pechenki=Record
     name:string[12];
     c_zakup,c_prod:real;
     Zakup, prod:Integer;
     end;
     myfile=file of pechenki;
Var f,f1:myfile;
    c1:pechenki;
    ob, ob1, na_zakup, na_prodaz:real;
begin
    Clrscr;
    Na_zakup:=0;
    Na_prodaz:=0;
    Assign(f,'c:\base');reset(f);
    assign(f1,'c:rez');rewrite(f1);
    While not eof(f) do
    with c1 do
    begin
    readln(f, name, c_zakup, c_prod, zakup, prod);
    writeln(f1, name:12, c_zakup:10:1, c_prod:7:1, zaku:5);
    Na_zakup:=c_zakup*zakup;
    Na_prodaz:=c_prod*prod;
      Writeln(f1, na_zakup:0:1);
      Writeln(f1, na_prodaz:0:1);
        ob:=na_prodaz-na_zakup;
        ob1:=na_zakup-na_prodaz;
          If ob>ob1 then
          Writeln(f1, ob:0:1);
          else writeln(f1,ob1:0:1);
          end;
Readln;
Close(f); Close(f1);
End;

в этой строке

readln(f, name, c_zakup, c_prod, zakup, prod);

возле f стоит курсор и ошибка 63 ivalid type of file.

помогите плз)

[Leshii]

Program Xme1ez_stroki_more;
Uses Crt;
Type pechenki=Record
     name:string[12];
     c_zakup,c_prod:real;
     Zakup, prod:Integer;
     end;
     myfile=file of pechenki;
Var f,f1:myfile;
    c1:pechenki;
    ob, ob1, na_zakup, na_prodaz:real;
begin
    Clrscr;
    Na_zakup:=0;
    Na_prodaz:=0;
    Assign(f,'c:\base');reset(f);
    assign(f1,'c:rez');rewrite(f1);
    While not eof(f) do
    while not eoln(f) do begin
    readln(f, name, c_zakup, c_prod, zakup, prod);
    writeln(f1, name:12, c_zakup:10:1, c_prod:7:1, zaku:5);
    Na_zakup:=c_zakup*zakup;
    Na_prodaz:=c_prod*prod;
      Writeln(f1, na_zakup:0:1);
      Writeln(f1, na_prodaz:0:1);
        ob:=na_prodaz-na_zakup;
        ob1:=na_zakup-na_prodaz;
          If ob>ob1 then
          Writeln(f1, ob:0:1);
          else writeln(f1,ob1:0:1);
          end;
Readln;
Close(f); Close(f1);
End;

Есть мысль что вам надо таки записать base.txt чтоб скопировать в файл Base, а потом копировать из файла в новый текстовый файл.

Вы считываете файл построчно. Добавил сюда же while not eoln(f) do
но чтоб прочитало там где ерор нужно как мне кажется добавить цикл ( подумайте сами, как программа будет знать что это нейм, а это закуп )
for i:=1 to Sizeof(f) do
и ридать информацию
если хотите вроде как правильно записать информацию with уберите и запишите так read(f, i);, но я думаю что вам надо прогу переделывать.

Ну я вам тут текста набросал что полезно, а что нет будете решать в процесе)

[Serge_Bliznykov]

     myfile=file of pechenki;
Var f,f1:myfile;

Народ, запомните, для чтения/записи типизированных файлов
НЕДОПУСТИМЫ операторы ReadLn(f, xxx ) и WriteLn(f, ...)

только исключительно Read(f, ... ) и Write(f, ... )