Help.............составьте программу........

Var
  a:array[1..8] of integer;
  i:integer;
  b:boolean;
begin
  b:=true;
  for i:=1 to 8 do
    read(a[i]);
  for i:=1 to 4 do
    if a[i]lt;gt;a[4-i+1] then b:=false;
  if b then writeln(YES)
  else writeln(NO);
end.