program Project2;
{$APPTYPE CONSOLE}

uses SysUtils;

Const
    MaxTab    = 5;
Type
    tScore  = Array [1..MaxTab] of Integer;
    tID     = Array [1..MaxTab] of Integer;

Var
    SC    : tScore;
    ID    : tID;

function search:Integer;
Var
    i   : Integer;
    Target  : Integer;
begin
 write('enter id you want to search'); Readln(Target);
 for i:=1 to MaxTab do begin
    if (ID[i]=Target) then begin
        Search:=i;
        Exit;
    end;
 end;
 Search:=-1; // if not found return the value -1
end;

procedure sort;
Var
    i,j,Temp : integer;
begin
 for i:=1 to MaxTab-1 do
  for j:=I+1  to MaxTab do
    if SC[j]> SC[i] then begin
        Temp:= SC[i];
        SC[i]:= SC[j];
        SC[j]:=Temp;

        Temp:=id[i];
        id[i]:=id[j];
        id[j]:=Temp;
    end;
end;

procedure view;
Var  i : integer;
begin
 for i:=1 to MaxTab do
    WriteLN(i:2,' :  ID = ',id[i]:5,'  ,  Score = ',SC[i]:5);
end;


///////////////////////////////////////////////////////////////

Var
    w     : integer;

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

 View;
 Readln;

 // Insert YOUR code here
 
end.