Вмассиве 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]<a[m1] then begin m2:=m1; m1:=i end else
if a[i]<a[m2] then m2:=i;
write(a[m1],' ',a[m2])
end.