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

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 файлом программы