[РЕШЕНО]: Несовместимость файлового типа

[olenka.ke]

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

 type
  stud=record
       group:byte; 
       semestr:byte; 
       predmeti:array [1..20] of record
                                    name:string[20];
                                    kaphedra:string[15];
                                    fam:string[12];
                                 end;
       end;
    file1= file of stud;
  var
  student:record
       group:byte; 
       semestr:byte; {ᥬҐбва}
      predmeti:array [1..20] of record
                                  name:string[20];
                                  kaphedra:string[15];
                                 fam:string[12];
                                  end;
          end;
  f:file1;
  k,l:byte;
  i,j:integer;
  procedure zapolnenie;
begin
  Assign(f,'info');
  Rewrite(f);
  Writeln('Ћ бЄ®«мЄЁе ЈагЇЇ*е *Ґ®Ўе®¤Ё¬® ¤®Ў*ўЁвм Ё*д®а¬*жЁо?');
  Readln(k);
  Writeln('‚ўҐ¤ЁвҐ Є®¬Ї®*Ґ*вл §*ЇЁбЁ:');
  for i:=1 to k do
  begin
  with student do
   begin
    Write('‚ўҐ¤ЁвҐ *®¬Ґа ЈагЇЇл: ');
    Readln(group);
    Write('‘Ґ¬Ґбва: ');
    Readln(semestr);
    Write('‚ўҐ¤ЁвҐ Є®«-ў® ЇаҐ¤¬Ґв®ў:');
    Readln(l);
    for j:=1 to l do
    with predmeti[i] do
     begin
     Write(j,'. '); Write('Ќ*§ў**ЁҐ: ');
     Readln(name);
     Write('Љ*䥤а*: ');
     Readln(kaphedra);
     Write('”*¬Ё«Ёп «ҐЄв®а*: ');
     Readln(fam);
     end;
   end;
    Writeln(f,student);
  end;

end;

Решение:
http://www.programmersforum.ru/showp...09&postcount=4

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

1. Укажите, в какой строке ошибка.
2. Зачем у вас используется тип stud, когда у вас не объявлено ни одной переменной такого типа?
============

Вот здесь:

var
  student:record
       group:byte; 
       semestr:byte; {ᥬҐбва}
      predmeti:array [1..20] of record
                                  name:string[20];
                                  kaphedra:string[15];
                                 fam:string[12];
                                  end;
          end;

Напишите так:

student:stud;

Должно помочь.

[olenka.ke]

ошибку выдает в самом конце, в строке Writeln(f,student); тип stud определяет переменную файлового типа(сразу после stud) описано

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

Вот здесь:

var
  student:record
       group:byte; 
       semestr:byte; {ᥬҐбва}
      predmeti:array [1..20] of record
                                  name:string[20];
                                  kaphedra:string[15];
                                 fam:string[12];
                                  end;
          end;

Напишите так:

student:stud;

Должно помочь.

[olenka.ke]

изначально был именно этот вариант, но он не работал. сделала снова, все работает. спасибо большое! видимо где-то до этого начудила, но потом в процессе переделала