uses crt; type fil=text; var f1:fil; a,b,c:string; i,w,n,y:integer; procedure wwod; begin assign(f1,'t1.dat'); rewrite(f1); writeln('Введите кол-во строк в файле:'); readln(y); for i:= 1 to y do begin writeln('Введите ',i,' строку'); {} readln(a); writeln(f1,a); end; close(f1); end; procedure prosm; begin assign(f1,'t1.dat'); reset(f1); writeln('Содержание текстового файла:'); while not eof(f1) do begin a:=''; readln(f1,a); writeln(a) end; close(f1); end; procedure naxod; var max:string; i,i1:integer; begin assign(f1,'t1.dat'); reset(f1); max:=''; i:=1;i1:=0; while not eof(f1) do begin a:=''; readln(f1,a); if length(a)> length(max) then begin max:=a; i1:=i; end; inc(i); end; writeln('Самая длинная строка: ',max,' (',i1,')'); reset(f1); i:=1; while not eof(f1) do begin a:=''; readln(f1,a); if (length(max)=length(a)) and (i<>i1) then writeln('Еше одна Самая длинная строка: ',max,' (',i,')'); inc(i); end; close(f1);{} end; begin w:=0; {обнуляем переменную для выбора меню} while w<>4 do begin {пока не равно 4 } writeln(' Меню программы'); writeln('1-Создание текстового файла'); writeln('2-Просмотр текстового файла'); writeln('3-Нахождение длинного строки'); writeln('4-Выход из программы'); write(' Ваш выбор -> '); readln(w); case w of 1:wwod; 2:prosm; 3:naxod; end; writeln end; end.
