Помогите пожалуйста Закончить (завершить) программу:
Program kontrol;
Const n=10;
var mas: array[1..n] of real;
i, imax, imin: integer; sr, max, min, sum: real;
begin
writeln ('введи значения внутренней ширины единиц подвижного состава');
for i:=1 to n do read (mas[i]); writeln ('вывод значений внутренней ширины
единиц подвижного состава'); for i:=1 to n do write (mas[i]:10:2); writeln;
{Нахождение максимального значения}
imax:=1;
max:=mas[1];
for i:=1 to n do
if (mas[i]>max) then begin max:=mas[i]; imax:=i; end;
writeln ('max=',max:5:2,'находитсяна ',imax:2,'месте);
writeln;