program SeisekiKanri1;
        (* 〜　〜 *)
        (* ｏＹｏ *)
        (* 　Ａ　 *)

{$APPTYPE CONSOLE}

uses SysUtils;

const
  Size     = 100;                       // 表の大きさ

type
  String8  = string[8];
  String18 = string[18];
  String20 = string[20];
  TKojin   = record                     // 個人成績
               Bangou : String8;        // 学生証番号
               Kanji  : String18;       // 氏名（漢字）
               Kana   : String18;       // 氏名（半角カナ）
               Romaji : String20;       // 氏名（ローマ字）
               Point  : Integer;        // 点数（6S+4A+2B+1C+2$）
               Rank   : Integer;        // 順位
             end;
  TSoeji   = 0..Size;                   // 添え字
  THyou    = array [TSoeji] of TKojin;  // 成績表

var
  SeisekiHyou : THyou;                  // 成績表
  Ninzuu      : TSoeji;                 // 実際の人数

procedure FileKaraYomu;
          {Seiseki.txt から読み込む}
          {人数がここで決まる      }
  begin
  end; {FileKaraYomu}

procedure Ranking;
          {点数順にランクをつける}
  begin
    // 全員のランクを１に初期設定する
    // 1≦M＜N≦Ninzuu なるすべての M,N について
    // M 番の点数が N 番の点数より高ければ N 番のランクを１下げる
    // M 番の点数が N 番の点数より低ければ M 番のランクを１下げる
  end; {Ranking}

procedure FileNiKaku;
          {SeisekiRank.txt に書き出す}
  begin
  end; {FileNiKaku}

begin {Main}
  FileKaraYomu;
  Write('Enterキーを押すとランクを計算します');
  ReadLn;
  Ranking;
  FileNiKaku;
  ReadLn;
end.