program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
Type
   score = Array [1 .. 5] of Integer;
   id = Array [1 .. 5] of integer;
  var
  sc: score;
  S: id;
  w:=integer
 procedure search (                        )
 var
 traget,I,index:integer;
 found:boolean;
 begin
 write('enter id you whant to search');
 readln(traget);
 found:=false;
 I:=1
 index:=0;
 while (I<=n) and (not found) do
 begin
 if id[i]= traget then
 begin
 found:=true;
 index:=I;
  end;
 else
 I:=I+1;
 end;
 end;

 procedure sort (                          )
 var
 i,j:integer
 begin
 for i:=1 to n-1 do
 for j:=I+1  to n do
 if score[j]> score[i] then
 begin
 i:= score[i];
 score[i]:= score[j];
 score[j]:=T
 TT:=id[i];
 id[i]:= id[j];
 id[j]:= TT;
 end;
 end;
 var

 begin
 for w:=1 to 10 do
 write('enter the id:  ');
 readln( id[w]);
write('enter score: ');
readln(score[w]);

 for














  // Insert user code here
end.