Вывести все номера телефонов, содержащиеся в сообщении

var s:string;
i:integer;
out_str:string;
start_tag:boolean;
begin
writeln('введите строку');
readln(s);
out_str:='';
start_tag:=false;
    for i:=0 to length(s) do
     begin
     if (not (s[i] in ['0'..'9'])) and (s[i]<>'-') then
      begin
       if (out_str <> '') and (start_tag=true) then
         begin
         writeln(out_str);
         out_str:='';
         end;
         
       start_tag:=false;
 
      end;
 
      if (s[i] in ['0'..'9']) or (s[i]='-') then
      begin
         out_str:=out_str+s[i];
         if s[i]='-' then start_tag:=true;
      end;
 
     end;
end.

program telephonegiveme;uses crt;
const n=6;//кол-во ячеек в массиве
type myarray=array[1..n]of string;
  var  a:myarray;// а- имя массива
        i,k:integer;i-номер символа в строке k-кол-во ячеек в массиве занятых телефонными номерами
       s,r:string;//s-строка в которой ищем всю лабудень,r-сюда записываем очередной телеф.номер
procedure firstinto(s:string;var i:integer);//ищет номер символа в строке-где стоит первая цифра телеф.номера
begin
  while not(s[i] in['0'..'9'])and(i<length(s))do//пока не наткнется на символ цифры или не закончится строка
     inc(i);
end;//конец firstinto
procedure intomassiv(var a:myarray;r:string;var k:integer);//заносит номер телефона в массив
begin
  inc(k);//k число ячеек массива занятых найденными телеф.номерами       
  a[k]:=r;//заносим в ячейку под № k массива (a) найденный номер из строки(r)
end;//конец intomassiv
procedure numbertelephone(s,r:string;var i:integer);//формирует строку r,(номер телефона)из символов
begin r:='';                                                       //телеф.номера найденного в строке s
   while(s[i] in['0'..'9'])or(s[i]='-') do begin //посимвольно считывает пока цифра и разделяющий их дефис'-'
     r:=r+s[i];  //тут наверно и так ясно
     inc(i);
   end;//конец while
    intomassiv(a,r,k);//строку r  c, телефонным номером, передаем для записи в массив (а)
end;//конец numbertelephone
procedure output(a:myarray;k:integer);//выводит номера телефонов из массива
 var i:integer;
begin
    for i:=1 to k do
      wrilteln(a[i]);
end;//конец output
begin clrscr;//ОСНОВНОЕ ТЕЛО ПРОГРАММЫ
  s:='кому 12-12-12 а кому 123-12-12 а вот кому 123-123';//веселенькая строчка
     s:=s+' ';//обязательно пробел в конце строки иначе при окончании стоки словами выход может быть ERROR!!!
     i:=1;//искать первую цифру телеф.номера начинаем с первого символа в строке
     k:=0;//количество ячеек занятых телеф.номерами
  while i<length(s) do begin
      firstinto(s,i);//ищет номер символа в строке( i )- первую цифру телеф.номера  
    if i<length(s) then //с этим условием не надо лишний раз ползать в  numbertelephone
       numbertelephone(s,r,i);//выделяет из строки(s) номер телефона и заносит в массив(а)
    end;//конец while i<..
    output(a,k);//вывод всех найденных номеров из массива
end.//конец всему -расслабьтесь