Работа с файлами.

---

Пример 1.

Программа 1 читает 12 вещественных чисел из текстового файла и выводит их на экран.

---- Текст программы 1: -----
Program TextFile;
var tt: text; fname: string; ii: integer;
 astra: array[1..12] of single;
begin
  write('Введите имя текстового файла, из которого читать --> ');
  readln(fname);
  assign(tt,fname);
{$I-}
reset(tt);
{$I+}
if IOResult <> 0 then
  begin writeln('Ошибка: нет файла'); exit;
  end;

    for ii := 1 to 12 do
     read(tt,astra[ii]);
    close(tt);
      writeln('------- Прочтено: -------');
      for ii := 1 to 12 do
      writeln(astra[ii]:8:2);
      writeln('------- Finita -------');
end.
--- Файл с данными (2 строки!): ---
2.34 55.12 67.3 56.4 75.5 -11.3 
12.1 54.8 43.1 23.98 -15.76 -12.87 
--- Результат: ---- 
Введите имя текстового файла, из которого читать --> my.txt
------- Прочтено: -------
    2.34
   55.12
   67.30
   56.40
   75.50
  -11.30
   12.10
   54.80
   43.10
   23.98
  -15.76
  -12.87
------- Finita -------

Пример 2.

Программа 2 читает 4 числа из текстового файла, снабженного комментариями и выводит на экран эти числа.

---- Текст программы 2: -----
Program TextFile;
var tt: text; fname: string; ii: integer;
 astra: array[1..4] of single;
begin
  write('Введите имя текстового файла, из которого читать --> ');
  readln(fname);
  assign(tt,fname);
{$I-}
reset(tt);
{$I+}
if IOResult <> 0 then
  begin writeln('Ошибка: нет файла'); exit;
  end;
    for ii := 1 to 4 do
     readln(tt,astra[ii]);
    close(tt);
      writeln('------- Прочтено: -------');
      for ii := 1 to 4 do
      writeln(astra[ii]:8:2);
      writeln('------- Finita -------');
end.
--- Файл с данными (4 строки): ---
2.34 - это первое число; 
-15.76 - это второе число
76.12 - еще число
12.44 - пример вставки комментариев в текстовый файл, хранящий числа.
--- Результат: ---- 
Введите имя текстового файла, из которого читать --> my.txt
------- Прочтено: -------
    2.34
  -15.76
   76.12
   12.44
------- Finita -------

Также см. Пример 3-5. Использование текстовых файлов.