Пусть имеется текстовый файл:
Program, begin, end
procedure, function
Программа, которая прочитает строки из этого файлы и выведет их на экран:
var t:text; s1,s2:string;
begin
assign(t,'Myfile.txt');
reset(t);
readln(t,s1);
writeln(s1);
readln(t,s2);
writeln(s2);
close(t);
end.