аварийный выход

[Najl]

procedure poisk;  //  Процедура поиска жильца
var
  s0, s1: string;
  i: integer;
  fnd: boolean;
begin
  fnd:= false;   
  for i := 0 to 4 do  //  Ищем по одноместным номерам
    if (Pos(s, mas1[i]) <> 0) AND ((mas1[i][length(s) + 1] = ' ')
                        OR (length(mas1[i]) = length(s))
                            OR (mas1[i][length(s) + 1] = '.')) then
    {Нашли вхождение фамилии в массиве}
      begin
        if fnd then
          begin
            crt.textcolor(5);;
            writeln('Таких жильцов несколько! Введите инициалы жильца');
            readln(s0);  //  Запомнили введёные данные с клавиатуры
           
            s:= s + ' ' + s0;  //  Добавили к фамилии инициалы
            poisk;  //  Запуск процедуры поиска с начала
            exit;
          end;
          crt.TextColor(Green);
        s1:= ('Жилец с фамилией ' + s + ' проживает в номере') + IntToStr(i + 1);
        fnd:= true;
      end;
 
for i:= 0 to 9 do  //  Ищем по двухместным номерам
    begin
      if (Pos(s, mas2[0, i]) <> 0) AND ((mas2[0, i][length(s) + 1] = ' ')
                                                      OR (length(mas2[0, i]) = length(s))
                                                        OR (mas2[0, i][length(s) + 1] = '.')) then
      {Нашли вхождение фамилии в массиве}
         begin
          if fnd then
            begin
              crt.textcolor(5);
              writeln('Таких жильцов несколько! Введите инициалы жильца');
              readln(s0);  //  Запомнили введёные данные с клавиатуры
          
              s:= s + ' ' + s0;  //  Добавили к фамилии инициалы
              poisk;  //  Запуск процедуры поиска с начала
              exit;
            end;
            crt.TextColor(Green);
          s1:= ('Жилец с фамилией '  +  s  +  ' проживает в номере  ') + IntToStr(i + 6);
          fnd:= true;
        end;
      if (Pos(s, mas2[1, i]) <> 0) AND ((mas2[1, i][length(s) + 1] = ' ')
                                                      OR (length(mas2[1, i]) = length(s))
                                                        OR (mas2[1, i][length(s) + 1] = '.')) then
      {Нашли вхождение фамилии в массиве}
        begin          if fnd then
            begin
              crt.textcolor(5);
              writeln('Таких жильцов несколько! Введите инициалы жильца');
              readln(s0);  //  Запомнили введёные данные с клавиатуры
           
              s:= s + ' ' + s0;  //  Добавили к фамилии инициалы
              poisk;  //  Запуск процедуры поиска с начала
              exit;
            end;
            crt.TextColor(Green);
          s1:= ('Жилец с фамилией'  +  s  +  ' проживает в номере  ') + IntToStr(i + 6);
          fnd:= true;
        end;
    end;
  if not fnd then
    
    writeln('Жильца с фамилией ' + s + ' нет')  //  Вывод результата поиска
  else
    begin
      writeln(s1);  //  Вывод результата поиска
    end;
 
end;
 
procedure spisok;  //  Процедура вывода списка всех жильцов
var
  i: integer;
begin
  writeln('Одноместные номера');
  for i:= 0 to 4 do  //  Выводим по одноместным
    writeln('№' + IntToStr(i + 1) + ' ' + (mas1[i]));
  writeln('');  //  Вывели на экран пустую строку
  writeln('Двухместные номера');
  for i:= 0 to 9 do  //  Выводим по двухместным
    writeln('№' + IntToStr(i + 6) + ' ' + (mas2[0, i]) + ' ' + (mas2[1, i]));
end;

Чем можно заменить в трёх местах "Exit" (аварийный выход)? Без выхода из процедуры у меня поиск жильцов работает не корректно. Можно запихнуть это всё в один одномерный массив, но тогда сам список жильцов, который тоже надо выводить будет выследить не так красиво, как хотелось бы.

[Stilet]

Та самое простое - развести процедуру по трем разным процедурам и последовательно их вызывать.

[Najl]

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

Та самое простое - развести процедуру по трем разным процедурам и последовательно их вызывать.

А как я потом буду во всех 3 процедурах искать и выводить только один раз значение, которое мне нужно.
У меня не получается избавиться от Exit даже тогда, когда Запихиваю все всё в один массив
[code]procedure poisk; // Процедура поиска жильца
var
s0, s1: string;
i: integer;
fnd: boolean;
begin
fnd:= false;

for i := 0 to 4 do // Ищем по одноместным номерам
if (Pos(s, mas1[i]) <> 0) AND ((mas1[i][length(s) + 1] = ' ')
OR (length(mas1[i]) = length(s))

OR (mas1[i][length(s) +%2

[Stilet]

как я потом буду во всех 3 процедурах искать и выводить только один раз значение, которое мне нужно.

А ты финкции используй. Функа пусть возвращает результат True если найдено.
Тогда даже условие типа

if func1() or func2() or func3()...

выдаст результат если хотя бы одна из функций нашла нужные тебе данные не запуская на выполнение следующие по порядку в операторе функции.