program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type TA= array[1..100,1..2] of integer;
var oceny:TA;

//var oceny:array[1..100,1..2] of double;
var i,n: integer;
procedure SortShell(n:word; var oceny);
var i,j,k,x,x1:integer;
begin
  k:=1; while 2*k+1<n do k:=k*2+1;
  while k>0 do
    begin
      for i:=k+1 to n do
        begin
          x:=oceny[i,1] j:=i-k;
          while (j>0) and (x<oceny[j,1]) do
            begin oceny[(j+k),1]:=oceny[j,1];j:=j-k end;
          oceny[j+k] :=x;
        end;
        k:=k div 2;
    end;
end;
begin
repeat
  write('podaj n ( nie wieksze niz 100): ');
  readln(n);
until n>0;
  for i:=1 to n do
    begin
      write('podaj ocene studenta nr: ',i);
      readln(oceny[i,1];
      writeln;
      write('podaj nr albumu studenta nr; ', i);
      readln(oceny[i,2];
      writeln;
      end;
SortShell(n, oceny);
  writeln('oceny po sortowaniu:')
for i:=1 to n do
  begin
  writeln(oceny[i,1]);
  writelln(oceny[i,2]);
  end.



end.