Вывести все символы строки, заключённые между каждыми двумя точками с запятой

var s:string;
procedure vvod(var x:string);
 begin
  write('Введите строку=');
  readln(x);
 end;
procedure find(s:string);
 var i:byte;
     r,t:integer;
 begin 
   for i:=1 to Length(s) do 
   if s[i]=';' then
    t:=i;
   r:=Pos(';',s);
   writeln('Все символы, заключённые между каждыми двумя точками с запятой:');
    for i:=r+1 to t-1 do
    write(s[i]);
 end;
begin
 vvod(s);
 find(s); 
end.

var
   s:string;
   toch1,toch2,i:integer;
begin
 readln(s);
 toch1:=-1; toch2:=-1;
 for i:=1 to length(s) do
   if s[i]=';' then
    begin
     toch1:=i;
     //toch1:=Pos(';',s);
     break;
    end;
 for i:=toch1+1 to length(s) do
   if s[i]=';' then
    begin
     toch2:=i;
     break;
    end;
    for i:=toch1+1 to toch2-1 do    
     write(s[i]);      
 readln;
end.

var s:string;
begin
writeln('Введите строку, содержащую символы ";"');
readln(s);
delete(s,1,pos(';',s));//удалим начало включая точку с запятой
while pos(';',s)>0 do //пока этот символ есть в строке повторяем
 begin
  while s[1]<>';' do //пока не точка с запятой
   begin
    write(s[1]); // выводим
    delete(s,1,1);//удаляем
   end;
  writeln; //на новую строку
  delete(s,1,1);//удаляем точку с запятой
 end;
end.