сформировать файл

[Sciv]

var gruppa: integer;

потому что group в записи - тоже integer

[ччч1]

я не знаю как переделать там то операнды не того типа то идентификатор неизвестный

[ччч1]

Type rasp = record
fio: string [5];
group,aud: integer;
conk: string[20];
ins: string[20];
zan: string[10];
end;
var
f: file of rasp;
name: string;
uch: array[1..4] of rasp;
gruppa,i:integer;
n,day:char;
s1:rasp;
ак идентификатор group все равно неизвестный

[Sciv]

Еще раз ВЕСЬ код покажите, что там у Вас получилось.

[ччч1]

Program file11;
uses crt;
Type rasp = record
      fio: string [5];
      group,aud: integer;
      conk: string[20];
      ins: string[20];
      zan: string[10];
end;
var
     f: file of rasp;
     name: string;
     uch: array[1..4] of rasp;
     gruppa,i:integer;
     n,day:char;
     s1:rasp;
begin
clrscr;
Writeln ('Задайте имя файла');
Readln (name);
Assign (f, name);
Rewrite (f);
Writeln ('Введите фамилию и инициалы преподавателя ');
Readln (s1.fio);
While s1.fio <> ' ' do
      Begin
           Writeln ('Введите номер группы ');
           Readln (s1.group);
           writeln ('Введите предмет ');
           readln (s1.conk);
           writeln ('Введите день недели ');
           readln (s1.ins);
           writeln ('Введите время занятия ');
           readln (s1.zan);
           writeln ('Введите аудиторию ');
           readln (s1.aud);
           write (f,s1);
           Writeln ('Введите фамилию и инициалы следующего преподавателя ');
           Readln (name);
           s1.fio:=name;
             End;
      Writeln ('Файл создан');
         Close(f);reset(f);
      writeln (' Pokazat spisok ');
       while not Eof(f) do
       begin
             read (f,s1);
             Reset(f);
ReadLn(group);
While not Eof(F) do begin
  Read(f,s1);
  if s1.group=gruppa then begin
    readln (s1.zan);
    readln (s1.conk);
    readln (s1.aud);
    readln (s1.fio);
  end;
end;
Close(F);reset(f);
  ReadLn(ins);
While not Eof(F) do begin
  Read(f,s1);
  if s1.ins=day then begin
    readln (s1.zan);
    readln (s1.conk);
    readln (s1.aud);
    readln (s1.fio);
     end;
end;
Close(F);reset(f);

[Sciv]

Душевно напортачено у Вас, конечно....

Program file11;
uses crt;
Type rasp = record
      fio: string [5];
      group,aud: integer;
      conk: string[20];
      ins: string[20];
      zan: string[10];
end;
var
     f: file of rasp;
     name: string;
     uch: array[1..4] of rasp;
     gruppa,i:integer;
     n:char;
     day: string[20];
     s1:rasp;
begin
clrscr;
Writeln ('Задайте имя файла');
Readln (name);
Assign (f, name);
Rewrite (f);
Writeln ('Введите фамилию и инициалы преподавателя ');
Readln (s1.fio);
While s1.fio <> ' ' do
      Begin
           Writeln ('Введите номер группы ');
           Readln (s1.group);
           writeln ('Введите предмет ');
           readln (s1.conk);
           writeln ('Введите день недели ');
           readln (s1.ins);
           writeln ('Введите время занятия ');
           readln (s1.zan);
           writeln ('Введите аудиторию ');
           readln (s1.aud);
           write (f,s1);
           Writeln ('Введите фамилию и инициалы следующего преподавателя ');
           Readln (name);
           s1.fio:=name;
             End;
      Writeln ('Файл создан');
         Close(f);reset(f);
      writeln (' Pokazat spisok ');
       while not Eof(f) do
       begin
         read (f,s1);
         with s1 do begin
           WriteLn('ФИО: ',fio);
           WriteLn('Группа: ',group);
           WriteLn('Предмет: ',conk);
           WriteLn('День недели: ',ins);
           WriteLn('Время занятий: ',zan);
           WriteLn('Аудитория: ',aud);
           WriteLn('----------------');
         end;
       end;
ReadLn(gruppa);
While not Eof(F) do begin
  Read(f,s1);
  if s1.group=gruppa then begin
    readln (s1.zan);
    readln (s1.conk);
    readln (s1.aud);
    readln (s1.fio);
  end;
end;
Close(F);reset(f);
  ReadLn(day);
While not Eof(F) do begin
  Read(f,s1);
  if s1.ins=day then begin
    readln (s1.zan);
    readln (s1.conk);
    readln (s1.aud);
    readln (s1.fio);
     end;
end;
Close(F);
end.

Обратите внимание на то, что я выделил - именно тут у Вас были ошибки.

[ччч1]

спасибо большое

[ччч1]

Program file11;
uses crt;
Type rasp = record
      fio: string [5];
      group,aud: integer;
      conk: string[20];
      ins: string[20];
      zan: string[10];
end;

procedure DoAll;
var
     f: file of rasp;  {файл типа файла записи}
     name: string;
     uch: array[1..4] of rasp;
     gruppa,i:integer;
     n:char;
     day: string[20];
     s1:rasp;
begin
   clrscr;
   Writeln ('Задайте имя файла');
   Readln (name);
   Assign (f, name);{устанавливает связь между именем файла в программе и физическим именем файла}
   Rewrite (f);{на запись}
   Writeln ('Введите фамилию и инициалы преподавателя ');
   Readln (s1.fio);
   While s1.fio <> ' ' do {пока не равно пробелу}
         Begin
              Writeln ('Введите номер группы ');
              Readln (s1.group);
              writeln ('Введите предмет ');
              readln (s1.conk);
              writeln ('Введите день недели ');
              readln (s1.ins);
              writeln ('Введите время занятия ');
              readln (s1.zan);
              writeln ('Введите аудиторию ');
              readln (s1.aud);
              write (f,s1);
              Writeln ('Введите фамилию и инициалы следующего преподавателя ');
              Readln (name);
              s1.fio:=name;
                End;
         Writeln ('Файл создан');
            Close(f);
            reset(f);{открывает существующий файл для чтения}
         writeln (' Pokazat spisok ');
          while not Eof(f) do   {пока не конец файла}
          begin
            read (f,s1);
            with s1 do begin  {объединяет}
              WriteLn('ФИО: ',fio);
              WriteLn('Группа: ',group);
              WriteLn('Предмет: ',conk);
              WriteLn('День недели: ',ins);
              WriteLn('Время занятий: ',zan);
              WriteLn('Аудитория: ',aud);
              WriteLn('----------------');
            end;
          end;
   ReadLn(gruppa);
   While not Eof(F) do begin  {пока не конец файла}
     Read(f,s1);
     if s1.group=gruppa then begin  {если введенная группа равна группе,которая есть в файле,то выводим...}
       readln (s1.zan);
       readln (s1.conk);
       readln (s1.aud);
       readln (s1.fio);
     end;
   end;
   Close(F);  {закрываем}
   reset(f);   {открываем для чтения}
     ReadLn(day);
   While not Eof(F) do begin {пока не конец файла}
     Read(f,s1);
     if s1.ins=day then begin  {если день указанный равен дню,который есть в файле,то выводим...}
       readln (s1.zan);
       readln (s1.conk);
       readln (s1.aud);
       readln (s1.fio);
        end;
   end;
   Close(F);{закрываем файл}
end; {конец процедуры}
  reset(f);
   readln(gruppa);
 while not Eof(F) do begin
   read(f,s1);
   if s1.group=gruppa then
 begin
 readln(s1.ins);
 readln(s1.fio);
 
begin
  DoAll;
end

помогите пожалуйста сделать чтобы преподавателей и кол-во занятий,проводимых ими в течение неделе в заданной группе выводил