01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / A1

program words;
uses crt;
var fi,ft,fn:text;
    c:char;
    i:integer;
    b:boolean;
begin
clrscr;
assign (fi,'file.txt');
reset (fi);
assign (ft,'text.txt');
rewrite (ft);
assign (fn,'number.txt');
rewrite (fn);
repeat
read (fi,c);
case c of '0','1','2','3','4','5','6','7','8','9': begin
                                                   write (fn,c);
                                                   b:=true;
                                                   end;
          ' ': begin
               case b of
                      true : write(fn,c);
                      false : write (ft,c);
               end;
               end;
else begin
     write(ft,c);
     b:=false;
     end;
end;
until eof (fi);
close (fi);
close (ft);
close (fn);
writeln ('‡ ¤ ­ЁҐ ўлЇ®«­Ґ­®');
readln;
end.