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

program ugu;
uses srch,crt;
label 1;
var f,n,w:text;
    s:string;
    c:char;
    tonum:boolean;
begin
tonum:=false;
clrscr;
write ('‚ўҐ¤ЁвҐ Ё¬п д ©«  ¤«п ®Ўа Ў®вЄЁ: ');
readln (s);
openfile (s);
assign (n,'number.txt');
rewrite (n);
assign (w,'words.txt');
rewrite (w);
repeat
getchar (c);
case c of
       'S' : begin
             getchar(c);
             if c='T' then begin
                            getchar (c);
                            if c='O' then begin
                                             getchar (c);
                                             if c='P' then goto 1
                                                            else begin
                                                                 write (w,'STO',c);
                                                                 tonum := false;
                                                                 end;
                                             end
                                      else begin
                                      write (w,'ST',c);
                                      tonum := false;
                                      end
                                      end;
                             else begin
                                  write (w,'S',c);
                                  tonum := false;
                                  end
                             end;
             else begin
                  write (w,c);
                  tonum := false;
             end;
       '1','2','3','4','5','6','7','8','9','0' : begin
                                                 write (n,c);
                                                 tonum := true;
                                                 end;
       ' ' : begin
             if tonum := true then write (n,c) else write (w,c);
end;
1:
until eof (f);
closefile;
close (n);
close (w);
readln;
end.