Помогите, пожалуйста, найти ошибки! Опции

[Catherinektz]

1. Введите в типизированный файл учебную нагрузку на 8 преподавателей (ФИО, количество недель, нагрузка). С помощью Random выработайте количество недель из диапазона 1..16, среднее количество часов занятий в неделю из диапазона 1..30 и общее количество часов (нагрузка). ФИО обозначьте одной буквой.

Program KEA17;
Type SchoolJob=Record
     FIO: String[3];
     Kolned:Integer;
     Srznach:Byte;
     Nagruzka:Byte;
     End;
Var FP1:File of SchoolJob;
    PP1:SchoolJob;
    I:Byte;
Begin
Randomize;
  Assign (FP1, 'D:/KEA.017');
  ReWrite (FP1);
    For I:=1 To 8 Do Begin
                     ReadLn(PP1.FIO);
                     PP1.Kolned:=Random(16)+1;
                     PP1.Srznach:=Random(30)+1;
                     PP1.Nagruzka:=PP1.Kolned*PP1.Srznach;
                     End;
Close(FP1);
End.

2. Введите все данные из файла в форме таблицы. Программными средствами определите, у какого преподавателя самая большая нагрузка и введите эти данные на экран.

Program KEA17;
Type SchoolJob=Record
     FIO: String[3];
     Kolned:Integer;
     Srznach:Byte;
     Nagruzka:Byte;
     End;
Var FP2:File of SchoolJob;
    PP2:SchoolJob;
    I:Byte;
Begin
Randomize;
  Assign (FP2, 'D:/KEA.017');
  Reset (FP2);
  WriteLn ('FIO   Kolned   Srznach   Nagruzka');
    For I:=1 To 8 Do Begin
                     Read(FP2,PP2);
                     WriteLn(PP2.FIO,PP2.Kolned,PP2.Srznach,PP2.Nagruzka);
                     PP2.Kolned:=Random(16)+1;
                     PP2.Srznach:=Random(30)+1;
                     PP2.Nagruzka:=PP2.Kolned*PP2.Srznach;
                     End;
ReadLn;
Close(FP2);
End.

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

Сообщение отредактировано: Lapp - 25.10.2011 5:17

[Catherinektz]

Огромнейшее спасибо, все получилось!!!