Распечатать список отличников, упорядоченный по году рождения — Pascal(Паскаль)

uses crt;
const n=4;
type rec=record
      name:string;
      year:integer;
     end;
var x:array[1..n] of rec;
    i:integer;
 
procedure Sort;
var i,imin,j,k:integer;
    tmp:rec;
begin
for i:=1 to n-1 do
 begin
  imin:=i;
  for j:=i+1 to n do
   if x[j].year>x[imin].year then
    imin:=j;
   if imin<>i then
    begin
     tmp:=x[i];
     x[i]:=x[imin];
     x[imin]:=tmp;
    end;
 end;
end;
 
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name: ');
   Readln(name);
   Write(' Year: ');
   Readln(year);
  end;
Sort;
Writeln('Table(sort):');
Writeln('---------------------');
Writeln('||  Name  |  Year  ||');
Writeln('---------------------');
for i:=1 to n do
 Writeln('||',x[i].name:8,'|',x[i].year:8,'||');
Writeln('---------------------');
Readln;
end.