Учет пропусков (Паскаль)

[Таня Хорошая]

Здравствуйте, мне необходима помощь в создании программы, которая учитывает пропуски 32-х человек в течении месяца и осуществляет:
1) ввод данных за месяц в файл(это я уже сделала);
2.1) вывод данных за все время;
2.2) за определенный день;
2.3) за период времени;
3.1) вывод среднего количества за все время;
3.2) среднее за определенный промежуток времени.

Вот и сама программа из пункта 1:

Program Tanya;
Type
  Progul=record
     Date:string[10];
     Fio:string[128];
     Kol:string;
  End;
var student: array [1..32] of progul;
    i,m:integer;
    f:text;
begin
assign(f,'e:\liudi.txt');
  rewrite(f);
    for i:=1 to 32 do
    begin
      writeln('vvedite imea i familiu');
      readln(student[i].Fio);
        for m:=1 to 31 do
        begin
          writeln('vvedite datu');
          readln(student[i].Date); 
          writeln('vvedite kol-vo propuskov');
          readln(student[i].Kol); 
          writeln(f,'fio','  ','  ',student[i].Fio,'  ','data','  ',student[i].Date,'  ','propuski','  ',student[i].Kol);
          end;
    end;
    close(f);
  readln;
end.

[Stilet]

Типа такого:

Program Tanya;
Type
  Progul=record
     Date:string[10];
     Fio:string[128];
     Kol:string;
  End;
var student: array [1..32] of progul;
    i,m:integer;
    f:text;

procedure q; {2.1) вывод данных за все время;}
var t:string;
begin
 readln(t);
 reset(f); 
        for m:=1 to 31 do        begin 
          readln(f,student[i]); 
           writeln(f,'fio','  ','  ',student[i].Fio,'  ','data','  ',student[i].Date,'  ','propuski','  ',student[i].Kol);
        end;
 close(f); 
end;

procedure w; {2.2) за определенный день;}
var t:string;
begin
 readln(t);
 reset(f); 
        for m:=1 to 31 do        begin 
          readln(f,student[i]); 
          if student[i].Date=t then  
           writeln(f,'fio','  ','  ',student[i].Fio,'  ','data','  ',student[i].Date,'  ','propuski','  ',student[i].Kol);
        end;
 close(f); 
end;

procedure r; {2.3) за период времени;}
var t,e:string;
begin
 readln(t);readln(e);
 reset(f); 
        for m:=1 to 31 do        begin 
          readln(f,student[i]); 
          if (student[i].Date>=t)and(student[i].Date>=e) then  
           writeln(f,'fio','  ','  ',student[i].Fio,'  ','data','  ',student[i].Date,'  ','propuski','  ',student[i].Kol);
        end;
 close(f); 
end;

procedure t; {3.1) вывод среднего количества за все время;}
var t:string; sr
begin
 sr:=0;
 reset(f); 
        for m:=1 to 31 do        begin 
          readln(f,student[i]); 
           sr:=sr+student[i].Kol;
        end;
 close(f);  write(sr/31);
end;




procedure y; {3.2) среднее за определенный промежуток времени.}
var t,e:string;
begin
 readln(t);readln(e);
 reset(f); 
        for m:=1 to 31 do        begin 
          readln(f,student[i]); 
          if (student[i].Date>=t)and(student[i].Date>=e) then  
          sr:=sr+student[i].Kol;
        end;
 close(f);  write(sr/31);
end;

begin
assign(f,'e:\liudi.txt');
  rewrite(f);
    for i:=1 to 32 do
    begin
      writeln('vvedite imea i familiu');
      readln(student[i].Fio);
        for m:=1 to 31 do
        begin
          writeln('vvedite datu');
          readln(student[i].Date); 
          writeln('vvedite kol-vo propuskov');
          readln(student[i].Kol); 
          writeln(f,'fio','  ','  ',student[i].Fio,'  ','data','  ',student[i].Date,'  ','propuski','  ',student[i].Kol);
          end;
    end;
    close(f);

 q;w;r;t;y;

  readln;
end.

Только я бы дату не делал строкой.

[Таня Хорошая]

Cпасибо за помощь!
Дату я сделала строкой потому что необходимо было определять ещё и месяц, то есть выглядить это будет так: "10.03".
И ещё... когда компилирую программу (а я работаю в паскале ABC), мне выводят ошибку в строке:

readln(f,student[i]);

Пишут "нельзя считывать данные этого типа"..

[Stilet]

Блин точно.

procedure t; {3.1) вывод среднего количества за все время;}
var t:string; sr:integer; p:Progul;
begin
 sr:=0;
 reset(f); 
        for m:=1 to 31 do        begin 
          readln(f,p.date,p.fio,p.kol); 
           sr:=sr+p.Kol;
        end;
 close(f);  write(sr/31);
end;

Ну и везде так по образу и подобию сделай.

Дату я сделала строкой потому что необходимо было определять ещё и месяц, то есть выглядить это будет так: "10.03".

Лучше бы сделала типом

TDat = record
 day,month,year:byte;
end;

[Таня Хорошая]

Но только если я изменю сейчас Date - выйдет куча ошибок, я запуталась(

[Stilet]

Ну потому что нужно раньше было продумать структуру данных )
Теперь конечно придется менять программу.

[Таня Хорошая]

Итак, я попыталась изменить и встретилась с очередными трудностями
Поможете исправить ошибочку?

Program Tanya;
Type
  Progul=record
     
     Fio:string[128];
     Kol:string;
  End;
  TDat = record
 day,month:byte;
end;
var student: array [1..32] of progul;
    date: array [1..100] of TDat;
    i,m:integer;
    f:text;


procedure w; {2.2) за определенный день;}
var t:string; sr:integer; p:Progul; d:TDat;
m:integer;
begin
 readln(t);
 reset(f); 
        for m:=1 to 31 do        begin 
          readln(f,d.day,d.month,p.fio,p.kol); 
          if student[i].Date=t then  
           writeln(f,'fio','  ','  ',student[i].Fio,'  ','data','  ',student[i].Date,'  ','propuski','  ',student[i].Kol);
        end;
 close(f); 
end;

Сама ошибка вот где:

 if student[i].Date=t then  ...

[Stilet]

Во-первых: Угадывать текст твоей ошибки это в бюро телепатии на втором этаже.
Во-вторых: Я правильно понимаю - ты не знаешь чем отличается один тип данных от другого, так?
Смотри:

var t:string;

и

  TDat = record
 day,month:byte;
end;

Строку нельзя сравнивать с записью. Строку вообще нельзя так просто без преобразования сравнивать с любым другим типом
А значит нужно что?...
Подсказываю: сделать переменную такого же типа, и ввести с помошью readln соответственно.
Смотри:
Было:

t:string;

и

Date:string

Смекаешь о чем я?
Еще раз повторю: Сравниваемые переменные должны быть одного типа.

[Serge_Bliznykov]

 student[i].Date

массив student состоит из записей progul, в которой нет date
а date, это массив (можно написать date[i].имя поля.
Но как его можно сравнивать со строкой?!!

[Таня Хорошая]

Да, смекаю.
Этот момент я обозначила через плюс (надеюсь, что правильно):

if ((d.day)+(d.month))=t then ...

И ещё хотела спросить, а можно ли сделать так, чтоб информация считывалась уже из существующего файла? Чтоб не вводить..