nemohl bys napsat trochu víc

něco podobnýho už jsem měl (jen jsem použil : pole:array[0..255] of word)
ale nějak se nemůžo dostat přes cyklus kterej to bude
furt opakovat až do konce souboru (zkoušel jsem while, ale pokaždý to hodí nějakou error) a vypíše to na monitor.