Aha tak berem spet, pole[pocet] neni tvoj problem (je tam predtym pocet:=pocet+1)

Ale problem je ze ten program je totalny maglajz bez hlavy a paty, begin a znova begin bez nazvu funckie,
for i:=1 to pocet do je nezmysel ked pocet je na zaciatku 0, ten program nema ani hlavu ani patu, nedava ziaden zmysel.

P.S> program bezi od vrchu na spodok sekvencne, nemozes si tam hadzat kusky jak ta napadne. Napis to tak aby sekvencia odzhora dole davala zmysel.