Имеется текстовый файл. Напечатать первые 10 символов файла - PascalABC.NET

Формулировка задачи:

Имеется текстовый файл. Напечатать первые 10 символов файла.

Решение задачи: «Имеется текстовый файл. Напечатать первые 10 символов файла»

Листинг программы

program pr;
 
var
  f: file of integer;
  i, n: integer;
 
begin
  assignfile(f, 'c:\file.txt');
  reset(f);
  while not EoF(f)  do
    writeln('Введите количество читаемых элементов элементов n');
  readln(n);
  for i := 1 to n do 
  begin
    read(f, i); 
    write(i:4);
    close(f);
  end;
end.

Объяснение кода листинга программы

В данном коде выполняется следующая последовательность действий:

Объявление переменных:
- f: файл для чтения целочисленных значений из текстового файла;
- i: счётчик для чтения элементов из файла;
- n: количество элементов для чтения из файла.
Открытие файла:
- assignfile(f, 'c:\file.txt');
- reset(f);
Цикл с условием, пока не достигнут конец файла:
- while not EoF(f) do
Ввод количества элементов для чтения:
- writeln('Введите количество читаемых элементов элементов n');
- readln(n);
Цикл для чтения и вывода элементов из файла:
- for i := 1 to n do
  - read(f, i);
  - write(i:4);
Закрытие файла:
- close(f);
Завершение программы.