program Kurator;
uses crt;
const n=5;
var
x,y:text;
i,b,k,d:integer;
a,p:string;
f:array [1..n] of string;
g:array [1..n] of integer;
begin
clrscr;

assign(x,'C:\1.txt');
assign(y,'C:\11.txt');
reset(x); reset(y);

for i:=1 to n do
begin
     writeln;
     write(i,' студент- ');readln(x,a);write(a);f[i]:=a;
     writeln;
     write('оценка- ':11);read(y,b); write(b);g[i]:=b;
     writeln;
end;
writeln;

for k:=1 to n do
for i:=1 to n do
     if g[i]<g[k] then
begin
     d:=g[k];
     g[k]:=g[i];
     g[i]:=d;

     p:=f[k];
     f[k]:=f[i];
     f[i]:=p;

end;
for i:=1 to n do
begin
     write(i, ' студент - ',f[i]:5,'  ');
     writeln(g[i]);
end;
end.