Deklaruj si dynamické pole:

type  
   dynarray = array of string;
var
   a: dynarray;

keď už budeš vedieť veľkosť (počet prvkov poľa)> readln(n); (tady načítám řetězce),
deklaruješ jeho veľkosť:
SetLength(a,n);
následne načítavaš reťazce a ukladáš do poľa:

for m:=0 to n-1 do   //pole sa indexuje od 0
begin
  readln(kousek);
  a[m] := kousek;
end;

potom prechádzaš poľom od začiatku, testuješ a vypisuješ:

for b:= low(a) to high(a) do     //použil som premennú b, ktorú si nadefinuješ na začiatku programu, alebo použiješ svoju vlastnú...
begin
  kousek := a[b];        // do premennej kousek sa načíta reťazec z poľa a, na indexe b.
  ... tu je Tvoj hotový kód
end;

ideálne by bolo rozdeliť kód do menších častí (procedúry a funkcie), aby si mal v tom prehľad...