Задача "Автобусная экскурсия"

Оргкомитет Московской городской олимпиады решил организовать обзорную экскурсию по Москве для участников олимпиады. Для этого был заказан двухэтажный автобус (участников олимпиады достаточно много и в обычный они не умещаются) высотой 437 сантиметров. На экскурсионном маршруте встречаются N мостов. Жюри и оргкомитет олимпиады очень обеспокоены тем, что высокий двухэтажный автобус может не проехать под одним из них. Им удалось выяснить точную высоту каждого из мостов. Автобус может проехать под мостом тогда и только тогда, когда высота моста превосходит высоту автобуса.
Помогите организаторам узнать, закончится ли экскурсия благополучно, а если нет, то установить, где произойдет авария.
Входные данные
Во входном файле INPUT.TXT сначала содержится число N (1 ≤ N ≤ 1000). Далее идут N натуральных чисел, не превосходящих 10000 - высоты мостов в сантиметрах в том порядке, в котором они встречаются на пути автобуса.
Выходные данные
В единственную строку выходного файла OUTPUT.TXT нужно вывести фразу "No crash", если экскурсия закончится благополучно. Если же произойдет авария, то нужно вывести сообщение "Crash k", где k - номер моста, где произойдет авария. Фразы выводить без кавычек ровно с одним пробелом внутри.
Примеры

№	INPUT.TXT	OUTPUT.TXT
1	1 763	No crash
2	3 763 245 113	Crash 2
3	1 437	Crash 1

Решение

var  a,i,r,c:integer;s:boolean;

m:array[1..1000] of integer;

f,f1:text;

begin

assign(f,'input.txt'); 

    reset(f); 

     assign(f1,'output.txt'); 

     rewrite(f1); 

    readln(f,a);s:=false;

    for i:=1 to a do

    begin

     read(f,m[i]); 

      if m[i]<=437 then s:=true; 

    end;r:=a+1;

      if s then begin

      for i:=1 to a do

    if m[i]<=437 then if r>i then r:=i; 

    end; 

         

    if s then  write(f1,'Crash ',r) else  write(f1,'No crash');

       close(f);

  close(f1); 

end.

Вопросы, замечания, свои вариант решения пишите в комментариях.