Дан текстовый файл, содержащий только целые числа, состоящий из трёх строк. определить длину самой меньшей строки.

Program proga;
var str1,str2,str3:string;
input:Text;
begin
Assign(input,'file.txt');
reset(input);
readln(input,str1);
 readln(input,str2);
 readln(input,str3);
if(length(str1)>length(str3)and length(str3)) then
writeln('1 строка самая длинная');
else if length(str2)>length(str3) and length(str1) then
 writeln('2 строка самая длинная');
 else if length(str3)>length(str1) and length(str2) then
writeln('3 строка самая длинная');
close(input);
end.
P.S файл со строками надо предварительно создать в папке с Exe файлом программы