これであと学籍番号を一緒に表示したいにですが、どうすればいいですか？ SysUtils; type rec=record name:String; ten:integer; end;var stud:array[1..5]of rec; i,j,w:integer;
begin { TODO -oUser -cConsole Main : この下にコードを記述してください } for i:=1 to 5 do begin write('no.',i,' 学籍番号：'); readln(stud[i].name); write('no.',i,' 点数：'); readln(stud[i].ten) end;
for i:=1 to 5-1 do for j:= i+1 to 5 do if stud[j].ten>stud[i].ten then begin w:=stud[i].ten; stud[i].ten:=stud[j].ten; stud[j].ten:=w end;
writeln; for i:=1 to 5 do writeln(stud[i].ten); writeln; readln; end.
