работа с файлами(паскаль)

[WF7]

Есть пара десятков файлов, у них однотипные названия:1.txt,2.txt,3.txt и тд.
Как заставить паскаль открывать эти файлы в цикле, чтобы каждый раз не вводить вручную название файла?
я попыталась написать цикл, который переводит i в стринговую константу, которая должна становится именем файла, но не становится. Что делать? эм..кажется не туда тему засунула....

Код такой:
var
i:integer;
s:string[3];
f:text;
ch:char;

begin
for i:=1 to 20 do

begin
str(i,s);

assign(f,'D:\s.txt');
reset(f);
while not Eof(f) do
begin
read(f,Ch);
write(Ch);
end;
readln;
close(f);
end;
readln;
end.

[Stilet]

assign(f,'D:\'+s+'.txt');

[WF7]

Спасибо огромное