program main(input,output);
    uses crt;
    const array_size = 40;

    var stu_data:array[1..70,1..70]of record
        name : string[60];
        k,e,m,s,temp :  integer;
        avr : real;
        end;
    exam:record
        exam:array[1..3]of integer
        end;
    temp:record
        end
        end;



  begin

        clrscr;

        var i,j:integer;
        writeln('데이터를 입력하세요');
        writeln('이름  국어  영어  수학 ');
        while not eoln do
        begin
                read(exam[i].name,exam[i].k,exam[i].e,exam[i].m)
                exam[i].sum = exam[i].k+exam[i].e+exam[i].math;
                exam[i]avr=exam[i].sum/3;
        end;
        for i := 0 to array_size do
                for j := i to array_size do
                        begin
                                if exam[i].sum>exam[j].sum
                                begin
                                temp := exam[i];
                                exam[i] := exam[j]
                                exam[j] := temp
                                end;
                        end;
                writeln('성명   국어   영어   수학   총점   평균');
                writeln('==============================================');
                for i :=size_arry-1 to 0 do
                        begin
                                writeln(exam[i].name,exam[i].k,exam[i].e,exam[i].m,exam[i].sum,exam[i].avr);
                                end;
     end.

c++인걸 파스칼로 바꿨는데 작동이 안되네요,,이건 성적 내림차순을 구조체,eof,내림차순으로 바꿔본거에요,

파스칼 처음 배우는데 좀 도와주세요ㅜㅜ