Имеется текстовый файл. напечатать: символы с s1-го по s2-й в первой строке

Достаточно открыть текстовый файл, прочитать его первую строчку в переменную строкового типа, закрыть файл и вывести требуемую часть, "вырезанную" из строки при функции Copy.

var
  s:string;
  s1,s2:integer;
  f:Text;
begin
  Write('Номер первого символа: '); Read(s1);
  Write('Номер последнего символа: '); Read(s2);
  Assign(f,'input.txt'); Reset(f);
  Readln(f,s); Close(f);
  Writeln(Copy(s,s1,s2-s1+1))
end.