https://otvet.mail.ru/question/204065549

program score;
uses sysutils;
var
   cheloveki:array[0..9] of array[0..1] of string;
   max,i:integer;
begin
    cheloveki[0][0] := 'Human1'; cheloveki[0][1] := '1.22';
    cheloveki[1][0] := 'Human2'; cheloveki[1][1] := '1.63';
    cheloveki[2][0] := 'Human3'; cheloveki[2][1] := '1.88';
    cheloveki[3][0] := 'Human4'; cheloveki[3][1] := '1.31';
    cheloveki[4][0] := 'Human5'; cheloveki[4][1] := '1.30';
    cheloveki[5][0] := 'Е**чий динозавр'; cheloveki[5][1] := '58366';
    cheloveki[6][0] := 'Human6'; cheloveki[6][1] := '1.48';
    cheloveki[7][0] := 'Javier Sotomayor'; cheloveki[7][1] := '2.45';
    cheloveki[8][0] := 'Human7'; cheloveki[8][1] := '2.38';
    cheloveki[9][0] := 'Бабка'; cheloveki[9][1] := '0.0009';

    max := 0;

    for i:=1 to length(cheloveki) - 1 do begin
        if StrToFloat(cheloveki[i][1]) > StrToFloat(cheloveki[max][1]) then max := i;
    end;
    writeln('Победил ', cheloveki[max][0], ' прыгнув на высоту ', cheloveki[max][1], ' метров.');
end.