[lmikle]

ага, а еще массивы и циклы.

типы данных будут примерно такими:

Код:

const
  N = 10; // кол-во студентов
  M = 20; // кол-во тестов

type
  TStudent = record
    FIO : String[256]; // Pascal-строка. Для протсоты сохраниеия в файл
    Test : Array [1..M] Of Boolean; // Прав. или нет ответ. Прав. ответ = 1 бал
  end;

var
  Students : Array [1..N] Of TStudent;

function GetTestResult(AStudent : TStudent) : Integer;
begin
  // Кол-во баллов для студента
end;

function GetAvg : Double;
begin
  // средний бал
end;

function GetMaxDiff(Avg : Double) : Double;
begin
  // Max отклонение
end;

var
  AAvg : Double;
  ADiff : Double;

begin
  // Здесь надо ввести данные...
  ...

  // теперь  считаем
  AAvg := GetAvg;
  ADiff := GetMaxDiff(AAvg);
 
  // Ну и выводим на экран
  WriteLn('Средний бал = ' + FloatToStr(AAvg));
  WriteLn('Max отклонение = ' + FloadToStr(ADiff));
end;

Ну реализацию функций сам напишешь. Или в работу...