Как вывести текст в паскале взятый из *.txt

пусть название файла f. значит, чтобы вывести данные из этого текстового файла на экран нужно открыть этот файл для чтения процедурой reset, потом в переменную по одному считывать элементы файла, и печатать в цикле, пока не достигнем конца файла. Делается это вот так:

program printfile;
uses crt;
type T=text;
var x:char; f:T;

begin
assign(f,<весь путь к файлу с расширением>); {эта процедура связывает файловую переменную f с файлом на диске}
reset(f); {открыли файл для чтения}
while not eof(f) do {пока не конец файла}
if not eoln(f) then {есле не конец строки}
begin
read(f,x); {в переменную x считываем элемент файла и
write(x) печатаем}
end else readln(f); {иначе читаем конец строки}
close(f); {хотя закрывать файл не обязательно}
readln
end.

удачки в остальном!

путь тот же - считываешь в переменную типа text и writeln

Program Lesson9_Program1;
Var UserFile : Text;
FileName, TFile : String;
Begin
Writeln('Enter the file name '+
+'(with its full path) of the text file:');
readln(FileName);
{A .txt file will be assigned to a text variable}
Assign(UserFile, FileName + '.txt');
Reset(UserFile); {'Reset(x)' - means open the file x}
Repeat
Readln(UserFile,TFile);
Writeln(TFile);
Until Eof(UserFile);
Close(UserFile);
Readln;
End.

program f7777;
var fl,rrr:text;
var tixt:string;
begin;
assign(fl, '(ПУТЬ К ФАЙЛУ');
reset(fl);
read(fl,tixt);
writeln(tixt);
close(fl);

end.