В массиве A(n) хранится информация о результатах N спортсменов по плаванию на 100 м. Определить результаты спортсменов, занявших два последних места.Программа получилась, но лишь от части, так как если задавать n=3, то всё работает нормально, но при задании большего числа программа сходит с ума и начинает нести какой-то бред.

На паскале

const n=5;
var a:array[1..n] of integer;
i,m1,m2:integer;
begin
for i:=1 to n do read(a[i]);
if a[1]>a[2] then begin m1:=2; m2:=1 end else begin m1:=1; m2:=2 end;
for i:=3 to n doif a[i]if a[i]write(a[m1], ,a[m2])
end.