C4 По информатике: Тетрис - онлайн

type playersInfo = record
     points: integer;
     name: string [20];
end;
 
var
N,i,p,j,fsm,sm,fdm:integer;
players: array[1..100000] of playersInfo;
 
begin
readln(N);
 
For i:=1 to N do begin
read(players[i].points, players[i].name);
end;
 
fsm:=1;
sm:=1;
fdm:=1;
 
for i:=2 to N do begin
If players[fsm].points<players[i].points then
fsm:=i;
If (players[sm].points<players[i].points) and (players[i].name<>players[fsm].name) then
sm:=i;
If (players[fdm].points<players[i].points) and (players[i].name<>players[fsm].name) and (players[i].name<>players[sm].name) then
fdm:=i;
end;
 
writeln ('1 место. ', players[fsm].name,'(',players[fsm].points,')');
writeln ('2 место. ', players[sm].name,'(',players[sm].points,')');
writeln ('3 место. ', players[fdm].name,'(',players[fdm].points,')');
end.

type
    playerinform=record
    points:LongInt;
    name:string;
    end;
var maxpoint,i,k,j,y,n,s,v,b,x: longint;
var maxname:string;
player: array[1..1000]of playerinform;
  begin
  x:=0;
          read(k,n);
                    for i:=1 to N do
    begin
         readln(player[i].points, player[i].name);
    end;
  for j:=1 to N do begin
for i:=1 to N-j do
begin
if (player[i].points<player[i+1].points) then
begin
 maxpoint:=player[i].points;
 player[i].points:=player[i+1].points;
 player[i+1].points:=maxpoint;
 maxname:=player[i].name;
 player[i].name:=player[i+1].name;
 player[i+1].name:=maxname;
 end;
 end;
 end;
     for j:=1 to n-1 do begin
     for i:=1 to n-j do begin
     for y:=1 to N-i do begin
     if (player[i].name=player[i+y].name) then
     player[i+y].name:=player[i+y+1].name;
     player[i+y].points:=player[i+y+1].points;
     end; end; end;
If k< N then
 for i:=1 to K do begin
 writeln( i,' ','mesto',' ', player[i].name,' ', player[i].points);
 end;
If k>N then 
 k=N
 for i:=1 to K do begin
 writeln( i,' ','mesto',' ', player[i].name,' ', player[i].points);
 end;