Jak dodać końcówkę do zmiennej ?

Witam ! :-)

Jak zorbić coś takiego (W TP 7), że za pomocą readln wpisuje sobie np. 'xxx' i do tego się dodaje np. '.txt' i otwieram to assignem (assign).

może po prostu:
var
s:string[8];

begin

ReadLn(s);
Assign(F, s+'.txt') ;