Как открыть файл для чтения в pascal?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15

Program GetFile;
var f: text;
    s: string;
begin
	//связываем файл с переменной
	Assign(f, 'C:\Temp\test.txt');
    //читаем файл
    While not eof(f) do 
      Begin
         //считываем очередную строку из файла
         Readln(f, s);
         //выводим строку на экран
         Writeln(s); 
      End;
end.