Операции с файлами, исправление кода Опции

[2nick]

Нужна помощь.
Есть задача:

Код

{
Задача: Создать файлы 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.

А необходимо чтобы код программы выполнял такое условие:

Создать файл f из целых чисел. Найти:
- Количество парных чисел среди компонент
- Максимальный компонент файла
- Поместить максимальный компонент на место последнего.


Зарание спасибо всем кто принимал участие в помощи.

[Lapp]

И ты предлагаешь нам переделывать чужую программу для тебя?.. Нашел что-то отдаленно напоминающее (типа тоже про файлы) и думаешь, оказал нам услугу?..

Или ты думаешь, что постоянные участники этого форума не способны сами написать программу по твоему условию за несколько минут?..

Если тебе нужно переделывать, иди на форум передельщиков. Тут форум программеров..

М

Закрыто