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

program proga;var str1,str2,str3:string;input:Text;beginAssign(input,'file.txt');reset(input);readln(input,str1); readln(input,str2); readln(input,str3);if(length(str1)>length(str3)and length(str3)) thenwriteln('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 файлом программы