помогите решить,задача паскаль:
В аэропорту три посадочные полосы. Для каждой известны длина и признак занятости (признак =1, если полоса занята и =0, если полоса свободна). Для самолета с заданным номером рейса и длиной посадочного пути определить возможность посадки и указать номера посадочных полос.

a, b:array[1..100] of integer;i, k, n. m, c:integer;beginreadln(c);for i:=1 to 3 doreadln(a[i], b[i]);for i:=1 to 3 doif (a[i]>c) and (b[i]=0) then writeln('yes', i)else writeln('no');readln;end.