Имеется текстовый файл. Напечатать: символы с 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.