Dưới đây là một ví dụ chương trình Pascal để tính điểm trung bình các môn của các học sinh trong lớp, tìm ra điểm cao nhất và điểm thấp nhất:
program DiemTrungBinh;

type
  HocSinh = record
    Ten: string[30];
    Toan, Ly, Hoa: real;
  end;

var
  i, n: integer;
  ds_hs: array[1..50] of HocSinh;
  diem_tb, diem_max, diem_min: real;
  ten_max, ten_min: string[30];

begin
  // Nhập thông tin các học sinh
  write('Nhap so luong hoc sinh: ');
  readln(n);

  for i := 1 to n do begin
    writeln('Nhap thong tin hoc sinh thu ', i);
    write('Ho ten: ');
    readln(ds_hs[i].Ten);
    write('Diem toan: ');
    readln(ds_hs[i].Toan);
    write('Diem ly: ');
    readln(ds_hs[i].Ly);
    write('Diem hoa: ');
    readln(ds_hs[i].Hoa);
  end;

  // Tính điểm trung bình các môn
  diem_tb := 0;

  for i := 1 to n do begin
    diem_tb := diem_tb + ds_hs[i].Toan + ds_hs[i].Ly + ds_hs[i].Hoa;
  end;

  diem_tb := diem_tb / (n * 3);

  writeln('Diem trung binh cua cac mon hoc la: ', diem_tb:0:2);

  // Tìm điểm cao nhất và điểm thấp nhất
  diem_max := 0;
  diem_min := 10;

  for i := 1 to n do begin
    if ds_hs[i].Toan > diem_max then begin
      diem_max := ds_hs[i].Toan;
      ten_max := ds_hs[i].Ten;
    end;

    if ds_hs[i].Ly > diem_max then begin
      diem_max := ds_hs[i].Ly;
      ten_max := ds_hs[i].Ten;
    end;

    if ds_hs[i].Hoa > diem_max then begin
      diem_max := ds_hs[i].Hoa;
      ten_max := ds_hs[i].Ten;
    end;

    if ds_hs[i].Toan < diem_min then begin
      diem_min := ds_hs[i].Toan;
      ten_min := ds_hs[i].Ten;
    end;

    if ds_hs[i].Ly < diem_min then begin
      diem_min := ds_hs[i].Ly;
      ten_min := ds_hs[i].Ten;
    end;

    if ds_hs[i].Hoa < diem_min then begin
      diem_min := ds_hs[i].Hoa;
      ten_min := ds_hs[i].Ten;
    end;
  end;

  writeln('Diem cao nhat la: ', diem_max:0:2, ', cua hoc sinh ', ten_max);
  writeln('Diem thap nhat la: ', diem_min:0:2, ', cua hoc sinh ', ten_min);

  readln;
end.