Zadanie z cukierkami - gdzie jest błąd w programie?

Witam, na początku chciałbym zaznaczyć że jestem kiepskim programistą, muszę napisać zadanie w pascalu mianowicie nie wiem gdzie jest błąd

Treść zadania:
Tata Krysi pracuje w cukierni. Każdego dnia przynosi do domu n pudełek z cukierkami. W i-tym pudełku znajduje się ai cukierków. Krysia może wybrać jedno z pudełek i o ile jest tam parzysta liczba cukierków, może je wszystkie zjeść. Jeżeli natomiast w wybranym pudełku jest nieparzyście wiele cukierków, trafiają one do brzuszka jej młodszego brata, Adasia. Które pudełko ma wybrać Krysia, aby zjeść jak najwięcej cukierków?

Moje przemyślenia :

program Cukierki;
var
a,p,i,b,j,s:integer;

begin
j:=0;
write('podaj liczbe pudelek');
read(a);

for i:=1 to a do
begin 
writeln('podaj liczbe cukierkow w opakowaniu');
read(x);
if(s>j)and(s mod 2=0) then p:=s;

end;
writeln(p);
end.

dodanie znacznika <code class="pascal"> - Furious Programming

Błąd przez który się nie kompiluje wyraźnie pisze kompilator, nie wiem czego nie rozumiesz w komunikacie.
Po naprawieniu tego błędu nadal nie będzie działać, jest na to dwie przyczyny.

1. Bezsensowne nazewnictwo zmiennych - przez to masz kilka zmiennych oznaczających to samo, więc je mylisz.
2. Brak formatowania - nie widzisz co się dzieje w programie