Pascal - Aiutatemi con questa specie di blocco note in turbo pascal

Salve.sto cercando di fare il programma sopra indicato,però non mi riesce di far leggere un file txt.Mi riesce crearlo in una directory x,pero non mi funziona,la lettura di un file txt.Ecco il codice sotto.Ditemi cosa devo modificare per favore.Garzie mille:


program note;
uses crt,dos;
type
files = file of string;

var
testo:files;
s:pathstr;
files1,dir,nome,hd,cart:string;
sc:integer;
begin
clrscr;
writeln('1) Crea un nuovo file di testo(txt)');
writeln('2) Apri e modifica un file di testo(txt)');
readln(sc);
case sc of
1:begin
clrscr;
writeln('Inserisic la directory e il nome del file txt che vuoi creare,');
writeln('nella seguente sintassi:C:\esempio\esempio\es.txt');
readln(dir);
writeln('Inserisci il testo che vuoi salvare all''interno di questo documento:');
readln(files1);
assign(testo,dir);
rewrite(testo);
write(testo,files1);
close(testo);
reset(testo);
writeln('Il testo Š stato salvato in ',dir);
readln;
end;
2:begin
clrscr;
TEXTCOLOR(WHITE);
writeln('Inserisci la directory e il nome del file');
writeln('nella seguente sintassi: C:\cartella\cartella\nomefile.txt');
readln(dir);
assign(testo,dir);
reset(testo);
read(testo,files1);
close(testo);
end;
end;
readln;
end.

Beh, dovresti creare un ciclo di lettura, che prende in input ogni volta una stringa.