Goto, отношение Опции

[mamont001]

всегда хотел узнать как кто относится

[TarasBer]

Я всегда использую гото в процедуре считывания файла (в остальных случаях - очень редко).
Пример (надуманный): надо считать файл. В нём имеются: числа икс и игрик - по одному байту (shortint), причёи оба должны быть по модулю не более 10. Далее - количество элементов некоторого массива (byte). Их не более чем 64. Далее - сами элементы. Причём все обязаны быть ненулевыми. Далее - число V (byte). Обязательно равно 128. Всё. Как я это бы реализовал:

...
function Load(FileName: string): boolean;
var
  i: integer;
  F: file of byte;
label
  Bad;
begin
  Assign(F, FileName);
  i := IOResult;
  Reset(F);
  if IOResult <> 0 then
    goto Bad;
  Read(F, X);
  if Abs(X) > 10 then
    goto Bad;
  Read(F, Y);
  if Abs(Y) > 10 then
    goto Bad;
  Read(F, Count);
  if Count > 64 then
    goto Bad;
  for i := 0 to Count - 1 do begin
    Read(F, A[i]);
    if A[i] = 0 then
      goto Bad;
  end;
  Read(F, V);
  if V <> 128 then
    goto Bad;
  Close(F);
  Load := True;
  Exit;
  Bad:
  Close(F);
  Load := False;
end;
...

Это весьма примитивный случай. И никакого злоупотребления - всё очень логично и читабельно.
Можно вместо гото писать begin Close(F); Load := False; Exit; end; - но это дольше. А как этот текст выглядит в виде брек-континь, я даже думать не хочу. Так что без гото здесь можно обойтись лишь теоретически.