Баг? в Pascal ABC.Net

[lfybbk]

Почему не продолжает программу если ввести где надо hyp, число, yes? Просто выбрасывает!

program graphsolver;



var
  
  k: real;
  
  l: real;
  q:string;
  
  
  g: string;
  
  f: string;
  
  h: string;


procedure lincheck(k, l: real);
begin
  write('k=');
  readln(k);
  write('l=');
  readln(l);
  if k > 0
    Then
    writeln('Функция возрастающая')
  Else
    writeln('Функция убывающая');
  if l = 0
    Then
    writeln('График проходит через начало координат')
  Else
    writeln('График пересекает ось y в точке (0;', l:0:0, ')');
end;


procedure lincalc(k, l: real; f: String);

var
  x, y: real;
begin
  writeln('Найти х или у?');
  readln(f);
  if f = 'x'
    Then
    begin
      write('y=');
      readln(y);
      x := (l - y) / k;
      writeln('x=', x:0:0)
    end;
  if f = 'y'
    Then
    begin
      Write('x=');
      readln(x);
      y := k * x + l;
      writeln('y=', y:0:0)
    end;
      end;
  

procedure hypcheck(k: real);
  begin
    write('k=');
    read(k);
    if k < 0
      Then writeln('Функция убывающая')
    Else
      begin
        writeln('Функция возрастающая');
      end;
    if k > 0
      Then
      begin
        writeln(



                 'График лежит в I и III координатных четвертях'
        )
      end
    Else
      begin
        writeln(



                 'График лежит во II и IV координатных четвертях'
        )

      end;
end;
    

procedure hypcalc(k: real; f: String);

    var
  x, y: real;
    begin
      writeln('Найти х или у?');
      read(f);
      if f = 'x'
        Then
        begin
          write('y=');
          readln(y);
          x := k / y;
          writeln('x=', x:0:0)
        end;
      if f = 'y'
        Then
        begin
          Write('x=');
          readln(x);
          y := k / x;
          writeln('y=', y:0:0)
        end;
end;
      

begin
        writeln('Выберите функцию');
        writeln('lin-Линейная функция (y=kx+l)');
        writeln('hyp-Гипербола (y=k/x)');
        readln(g);
        if g = 'lin'
          Then
          begin
            lincheck(k, l);
            writeln('Рассчитать?');
            readln(h);
            if h = 'yes'
              Then
              lincalc(k, l, f);
          end
        else if g = 'hyp'
          Then
          begin
            hypcheck(k);
            writeln('Рассчитать?');
            readln(h);
            readln(q);
            if h = 'yes'
              Then
              hypcalc(k, f);


          end;
      end.

[Serge_Bliznykov]

для чего ДВАЖДЫ читаете значение?

    writeln('Рассчитать?');
    readln(h);
    readln(q);

[Serge_Bliznykov]

чуть-чуть "причесал" код.
получилось такое:
program graphsolver;

procedure lincheck(var k, l: real);
begin
  write('k=');
  readln(k);
  write('l=');
  readln(l);
  if k > 0
    Then
    writeln('Функция возрастающая')
  Else
    writeln('Функция убывающая');
  if l = 0
    Then
    writeln('График проходит через начало координат')
  Else
    writeln('График пересекает ось y в точке (0;', l:0:0, ')');
end;


procedure lincalc(k, l: real);
var
  x, y: real;
  f: String;
begin
  writeln('Найти х или у?');
  readln(f);
  if f = 'x'
    Then
  begin
    write('y=');
    readln(y);
    x := (l - y) / k;
    writeln('x=', x:0:0)
  end;
  if f = 'y'
    Then
  begin
    Write('x=');
    readln(x);
    y := k * x + l;
    writeln('y=', y:0:0)
  end;
end;


procedure hypcheck(var k: real);
begin
  write('k=');
  readln(k);
  if k < 0 
    Then writeln('Функция убывающая')
    Else  writeln('Функция возрастающая');
  if k > 0 
    Then writeln('График лежит в I и III координатных четвертях')
    Else writeln('График лежит во II и IV координатных четвертях')
end;


procedure hypcalc(k: real);
var
  x, y: real;
  f: String;
begin
  repeat
    writeln('Найти х или у?');
    readln(f);
  until (f='x') or (f='y');
  if f = 'x' Then
  begin
    write('Введите y=');
    readln(y);
    x := k / y;
    writeln('x=', x:0:0)
  end;
  if f = 'y' Then
  begin
    Write('Введите x=');
    readln(x);
    y := k / x;
    writeln('y=', y:0:0)
  end;
end;

var
  k: real;
  l: real;
  g: string;
  f: string;
  h: string;

begin
  writeln('Выберите функцию');
  writeln('lin-Линейная функция (y=kx+l)');
  writeln('hyp-Гипербола (y=k/x)');
  readln(g);
  if g = 'lin'  Then
  begin
    lincheck(k, l);
    writeln('Рассчитать?');
    readln(h);
    if h = 'yes' Then lincalc(k, l);
  end
  else 
  if g = 'hyp' Then
  begin
    hypcheck(k);
    writeln('Рассчитать?');
    readln(h);
    if h = 'yes' Then hypcalc(k);
  end
  else WriteLn('Ошибка! Введено неизвестное значение "',g,'"');
  WriteLn;
  Write('Нажмите Enter для завершения.');
  Readln
end.

[lfybbk]

Сообщение от Serge_Bliznykov

для чего ДВАЖДЫ читаете значение?

По другому не работает - программа останавливается перед запросом. А так запрашивает и останавливается после запроса

[Serge_Bliznykov]

Вы выложенный мной выше код попробовали? Там в дублировании чтения необходимости не возникает.

[lfybbk]

Сообщение от Serge_Bliznykov

Вы выложенный мной выше код попробовали? Там в дублировании чтения необходимости не возникает.

Использовал. Спасибо, все работает

[lfybbk]

разве что не выдает вот эту строку:

else WriteLn('Ошибка! Введено неизвестное значение "',g,'"');

Он ее пропускает и переходит сразу к этой:

Write('Нажмите Enter для завершения.');