Выбор строк,длина которых превышает заданную

[Dell2dimka]

Помогите пожалуйста написать программу на языке Турбо Паскаль. "Выбор строк,длина которых превышает заданную"

[MadReason]

var
s:string;
i:integer;
begin
s:='stroka';
i:=length(s);
end;

i будет равно 6. дальше думаю разберешься

[Dell2dimka]

Если честно, то я вообще чайник в этом деле, если не затруднит от и до прогу можешь написать?) Понимаю что наглею, но все же, зараннее спасибо.

[Serge_Bliznykov]

вы бы лучше пояснили (хотя бы так, как Вы сами понимаете), ОТКУДА надо выбрать строки?

если из текстового файла MyFile.txt, то:

var f : text;
 s : string;
 DefLen  : integer;
begin
   WriteLn('ВВедите заданную строку: ');
   Readln(s);
   DefLen  := Length(s); {взяли и запомнили длину строки}

   {чтение строк из файла}
    Assign(f, 'MyFile.txt');
    Reset(f);
    while Not Eof(f) do begin
       Readln(f, s);
       {если длина строки больше заданной}
       if length(s)>DefLen then
           writeln(s); {выведем эту строку на экран}
    end;
    Close(f);
end.

[Dell2dimka]

Да, из текстового файла...Спасибо за программу, только я не понял где в программе указывается путь к текстовому файлу (ну например С:\Мои документы\MyFile.txt)

[IT-man]

Assign(f,путь к файлу);

[Dell2dimka]

Я создал MyFile.txt на диске С. В поле ввожу Assign(f,С:\MyFile.txt);
MyFile содержит различные символы:
"gjdsfjhsdgfjsdhgfjhbvjdhbdf
vfdhgvjdvbfjvhbryvbncbvjd
fdvjhdfkjvhfdbvdfbvjfhb
fdvnmsdnfdbvhjfbdjvbjd"
Нажимаю Ctrl+F9 меня просит ввести строку, после ввода и нажатия клавиши Enter выкидывает обратно в прогу, но ошибки вроде никакой не показывает. Вообщем чет не понял я)

[IT-man]

Перед последним end добавь readln;

[Dell2dimka]

он выводит сначала то что ввел я,а затем то что у меня в текстовом документе

[Dell2dimka]

хотя, вроде так и надо) попробую сдать...отпишусь потом