Версия для печати темы

{
Задача: Создать файлы f1 текстовый файл из непустых строк.
Посчитать количество строк, которые начинаются с буквы «л»;
Найти максимальную длину строк.
}

program Zadanie3_9;
uses crt;

type fil=text;
var
    f1:fil;
    name:string[35];
    txt:string;
    i:char;
    kol, max, m, t:integer;
begin
    Clrscr;
    write('Vvedite imja faila');
    readln(name);

    writeln;
    assign(f1,name);
    rewrite(f1);

    writeln('Vvedite text dlja zapisi (dlja okon4anijaя-Enter):');
    writeln;

    repeat
        write(':>');
        readln(txt);
        writeln(f1,txt);
    until txt='';
    close(f1);

    writeln;
    writeln('Vvod okon4en');
    reset(f1);

    kol:=0;
    while not eof(f1) do begin
        readln(f1,i);
        if i='l' then
        kol:=kol+1;
    end;

    writeln('Kol-vo rjadov na4inauwihsja s "l": ', kol);
    close(f1);
    reset(f1);

    m:=0;
    max:=2; {on raven 1 tak kak kursor uje stoit na pervom simvole}

    while not Eof(f1) do begin {Proverka end file}
        read(f1,i);
        if not eoln(f1) then max:=max+1;
        if max>m then  m:=max;
        if eoln(f1) then max:=0;
    end;

    m:=m-1;
    writeln('Maximalnaya dlina stroki: ',m);
    close(f1);

    readln;
end.