Developing.ru

Код: Выделить всё

procedure zzz;
var
  f:text; c:char; s:string; b:boolean;
begin
assign(f,'f1.txt');
reset(f);
s:='';
b:=false;
while not eof(f) do  begin
  read(f,c);
  if c in [#48..#57,#64..#90,#95..#96,#97..#122,#128..#175,#224..#249] then begin
  s:=s+c;
  if c in [#48..#57] then b:=true;
  end;  
  else
    begin
    if (b=true) then
      begin
      writeln(s);
      readln;
      exit;
      end;
    s:='';
    end;
  end;
close(f);
end;