OJ Board

I got a WA in 103 task why? Please help me....


program Task103;

uses Strings;

var boxes : array [1..30] of array [1..10] of integer;
graph : array [1..30] of array [1..30] of integer;
max_chain : array [1..30] of integer;
current_chain: array [1..30] of integer;
box_count,dimension,code,max ...

This is my code. Why WA?

program Task105;

var skyline : array [0..10000] of integer;
i,l,h,r : integer;
blank : integer;
begin
for i:=0 to 10000 do skyline :=0;
while EoF(input) do begin
ReadLn(l,h,r);
for i:= l to r-1 do
if(skyline < h) then skyline :=h;
end;


blank:=0;
for i:=1 to ...