Задача на паскаль

[St1fler92]

Напишите полность программу а то я вообще не знаю что и как


Найти все элементы массива целых чисел B(n),больше первого элемента и меньше пятого.Массив заполняется вводом чисел с клавиатуры.

[Spartiat]

program massive;
const
     n = 7;
var
   B: array [1..n] of integer;
   i: integer;
Begin
     for i := 1 to n do
       begin
         writeln('Vvedite ',i,' element massiva');
         readln(B[i])
       end;
     writeln('Bolshe 1 elementa i menshe 5 elementa: ');
     for i := 1 to n do
       if (B[i] > B[1]) and (B[i] < B[5]) then
         write(B[i],' ');
     readln
End.

Правда программа не будет работать, если в массиве будет меньше 5 элементов

[PoMaHkA]

Помогите пожалуйста: Мне задали написать карточную игру на ABC Pascal какую-нибудь по проще.
P.S.
Будьте добры выложите пожалуйста программный код (только полностью), если у кого есть.