[Hector]

Я правильно понял: в файле *.pas найти конструкции вида for - to (downto) - do и вывести их на экран?

[IvanIshchuk]

Да!

[Hector]

Попробуй это

Код:

program oszone;
{(c) Hector}
uses crt;

var
f:text;
fn, str:string;

begin
clrscr;
write('Введите полный путь к файлу, включая расширение: ');
readln(fn);
assign(f,fn);
reset(f);
writeln;
while not eof(f) do
  begin
   readln(f,str);
   if pos('for ',str)<>0 then  {если строка содержит for - выводим её}
     begin
      writeln(str);
      readln(f,str);
      if (pos('begin',str)<>0) or (pos('if ',str)<>0) then  {если следующая содержит begin или if}
       begin
        repeat         
         writeln(str);
         readln(f,str);
        until pos('end',str)<>0; {то выводим строки, пока не найдем строку с end}
        if pos('end',str)<>0 then writeln(str);
       end
      else writeln(str);
     writeln;
     end;
  end;
close(f);
writeln('Обработка завершена');
readln;
end.