помогите с задачей по паскалю!

Имеется текстовый файл Т. Написать программу, которая выводит на экран первую из самых коротких его строк.
----
Вот ее решение, но преподаватель говорит что она написана не правильно, помогите исправить ошибки или как то по другому ее переделать

var
i: text;
b, min: string;
begin
Assign(i, 'T.txt'); (здесь ошибка)
Reset(i); (здесь ошибка)
min := '';
readln(i, min); (здесь ошибка)
WHILE not EOF(i) do
begin
readln(i, b); (здесь ошибка)
if length(b)