Строка символов до точки

uses    crt;
var
    i,x,y,
    k,l,n    : byte;
    b        : boolean;
    s        : string;
    ch       : char;
 
BEGIN
  clrscr;
  repeat
   repeat
    textcolor(7);
    s:='';k:=0;l:=0;b:=true;
    writeln('Введите строку с точкой в конце текста:');
    textcolor(15);
    readln(s);
    writeln;
    n:=pos('.',s);
    if n=0 then
     begin
       textcolor(12);writeln('В тексте отсутствует точка, посторите ввод.');
     end
           else
     begin
       s:=copy(s,1,n);
     end;
   until n>0;
    writeln('Введена строка:');
    for i:=1 to length(s) do
     begin
       if (s[i]='(') or (s[i]=')') then
          textcolor(13)
                                   else
          textcolor(14);
       write(s[i]);
     end;writeln;writeln;
    for i:=1 to length(s) do
       begin
        if s[i]='('then inc(k);
        if s[i]=')'then
           begin
             inc(l);
             if l>k then b:=false; {если закрывающая раньше}
           end;
       end;
    if (k=0)and(l=0) then
       begin textcolor(15);writeln('Скобки в тексте отсутствуют');end
                     else
       begin
        if k-l=0 then
         if b=true then
          begin textcolor(10);writeln('Скобки расставлены верно');end
                   else
          begin textcolor(10);write('Скобок поровну, НО ');
                textcolor(12);writeln('Закрывающая раньше открывающей!');
          end
                 else
          begin
           if k-l<0 then
            begin textcolor(13);writeln('Закрывающих скобок больше на ',l-k);
              if k=0 then
               begin textcolor(11);writeln('Открывающих скобок НЕТ');
               end;
            end
                    else
            begin textcolor(11);writeln('Открывающих скобок больше на ',k-l);
              if l=0 then
               begin textcolor(13);writeln('Закрывающих скобок НЕТ');
               end;
            end;
        end;
       end;
     writeln;textcolor(7);
     writeln('<Esc> - закончить, любая другая - продолжить ...');
     ch:=readkey;
  until ch=#27;
END.

uses    crt;
var
    i,x,y,
    k,l,m,n  : byte;
    b        : boolean;
    s        : string;
    ch       : char;
 
BEGIN
   clrscr;
   repeat
    textcolor(7);
    writeln('Если хотите закончить программу нажмите <Esc>');
    m:=0;s:='';n:=0;k:=0;l:=0;b:=true;
    writeln('Введите строку с точкой в конце текста:');
    textcolor(15);
    repeat
     if m<80 then
      begin
          ch:=readkey;
          case ch of
           #0         : begin
                          ch:=readkey;
                        end;
           #032..#175,
           #224..#241 : begin
                          if (m=79)and(ch<>'.') then
                           begin
                             X:=wherex;Y:=wherey;textcolor(12);
                             window(1,25,80,25);gotoxy(10,wherey);
                             write('У Вас осталось одно знакоместо для точки !!!');
                             window(1,1,80,24);                                                                                                                       
                             n:=1;textcolor(15);gotoxy(x,y);
 
                           end
                                                else
                           begin
                            if (ch='.') and (length(s)=0) then
                              begin
                              end
                                                          else
                              begin
                                s:=s+ch;write(ch);inc(m);
                              end;
                           end;
                        end;
           #8         : begin
                         if (m=79)and(n=1) then
                          begin
                            X:=wherex;Y:=wherey;
                            window(1,25,80,25);clreol;
                            window(1,1,80,24);gotoxy(x,y);n:=0;
                          end;
                         if ord(s[0])>0 then
                          begin
                            gotoxy(wherex-1,wherey);write(chr(255));
                            gotoxy(wherex-1,wherey);dec(m);
                            s[0]:=chr(ord(s[0])-1);
                          end;
                        end;
           #27        : begin exit;end;
          end;
        end;
    until (length(s)>0) and (ch='.');
    writeln;
    if m<80 then writeln;
    writeln('Введена строка:');
    for i:=1 to length(s) do
     begin
       if (s[i]='(') or (s[i]=')') then
          textcolor(13)
                                   else
          textcolor(14);
       write(s[i]);
     end;writeln;
    if m<80 then writeln;
    X:=wherex;Y:=wherey;textcolor(7);window(1,25,80,25);
    clreol;window(1,1,80,24);gotoxy(x,y);n:=0;
    for i:=1 to length(s) do
       begin
        if s[i]='('then inc(k);
        if s[i]=')'then
           begin
             inc(l);
             if l>k then b:=false; {если закрывающая раньше}
           end;
       end;
    if (k=0)and(l=0) then
       begin textcolor(15);writeln('Скобки в тексте отсутствуют');end
                     else
       begin
        if k-l=0 then
         if b=true then
          begin textcolor(10);writeln('Скобки расставлены верно');end
                   else
          begin textcolor(10);write('Скобок поровну, НО ');
                textcolor(12);writeln('Закрывающая раньше открывающей!');
          end
                 else
          begin
           if k-l<0 then
            begin textcolor(13);writeln('Закрывающих скобок больше на ',l-k);
              if k=0 then
               begin textcolor(11);writeln('Открывающих скобок НЕТ');
               end;
            end
                    else
            begin textcolor(11);writeln('Открывающих скобок больше на ',k-l);
              if l=0 then
               begin textcolor(13);writeln('Закрывающих скобок НЕТ');
               end;
            end;
        end;
       end;
       writeln;
   until ch=#27;
END.