Дан массив, заполненный значениями скоростей разных марок автомобилей

Program Pr1; uses crt; const n=100; var mas: array[1… n] of integer; var g,i,h: integer; Beginclrscr; for i: =1 to n do begin writeln ('введите скорость ',i,' — ого автомобиля'); readln (mas[i]); end; for g: =1 to n-1 dofor i: =1 to n-g do if mas[i]