Problém vidím v tomto cykle:
for m:=1 to n do
readln(kousek); //proste niekoľko-krát za sebou načítavaš reťazec a nič viac

Po skončení načítavania robíš porovnanie, ale to porovnanie platí len pre posledne načítaný reťazec.
Možno by stačilo pridať:

for m:=1 to n do
begin
readln(kousek);
... /tu si porovnávaj a vypisuj výsledok
...
readln;
end;

Ak si chceš najprv načítať všetky reťazce a až následne ich testovať a vypisovať, potom to takto nepôjde...
Reťazce si musíš niekam uložiť napr. dynamické pole (nie je vopred známa veľkosť), ale neviem či ste to už preberali...
Prípadne OOP umožňuje zoznam reťazcov StringList apod. Opäť netuším čo v škole máte a s čím robíte...