Программа для разбиения строки на строки

uses crt;
 var s1,s2,s3:string;
 
  procedure input(var st,sh:string);
   begin
   writeln('Введите строку');
   readln(st);
   writeln('Введите шаблон-разделитель');
   readln(sh);
  end;
 
  function razb();
 
  procedure output(var vst1,vst2:string);
   begin
   writeln('Результат деления:');
   writeln(vst1,' ',vst2);
   end;
 
begin
 clrscr;
  input(s1,s2);
 
  output(razb(s1,s2));
  readln;
 end.

uses crt;
procedure input(var st:string;var rz:char);
begin
writeln('Введите строку');
readln(st);
writeln('Введите символ, шаблон-разделитель');
readln(rz);
end;
procedure razb(st:string;rz:char);
begin
while pos(rz,st)>0 do
 begin
  writeln(copy(st,1,pos(rz,st)-1));
  delete(st,1,pos(rz,st));
 end;
writeln(st);
end;
var s:string;
    r:char;
begin
clrscr;
input(s,r);
razb(s,r);
readln;
end.

uses crt;
procedure input(var st:string;var rz:string);
begin
writeln('Введите строку');
readln(st);
writeln('Введите  шаблон-разделитель');
readln(rz);
end;
procedure razb(st:string;rz:string);
begin
while pos(rz,st)>0 do
 begin
  writeln(copy(st,1,pos(rz,st)-1));
  delete(st,1,pos(rz,st)+length(rz)-1);
 end;
writeln(st);
end;
var s,r:string;
begin
clrscr;
input(s,r);
razb(s,r);
readln;
end.

uses crt;
type mas=array[1..50] of string;
procedure input(var st:string;var rz:string);
begin
writeln('Введите строку');
readln(st);
writeln('Введите  шаблон-разделитель');
readln(rz);
end;
procedure razb(st:string;rz:string;var s:mas;var n:byte);
begin
n:=0;
while pos(rz,st)>0 do
 begin
  n:=n+1;
  s[n]:=copy(st,1,pos(rz,st)-1);
  delete(st,1,pos(rz,st)+length(rz)-1);
 end;
if st<>'' then
 begin
  n:=n+1;
  s[n]:=st
 end
end;
procedure output(s:mas;n:byte);
var i:byte;
begin
for i:=1 to n do
writeln(s[i])
end;
var s,r:string;
    m:mas;
    n:byte;
begin
clrscr;
input(s,r);
razb(s,r,m,n);
output(m,n);
readln;
end.

uses crt;
type mas=array[1..50] of string;
procedure input(var st:string;var rz:string);
begin
writeln('Введите строку');
readln(st);
writeln('Введите  шаблон-разделитель');
readln(rz);
end;
function razb(st:string;rz:string;var s:mas):byte;
var n:byte;
begin
n:=0;
while pos(rz,st)>0 do
 begin
  n:=n+1;
  s[n]:=copy(st,1,pos(rz,st)-1);
  delete(st,1,pos(rz,st)+length(rz)-1);
 end;
if st<>'' then
 begin
  n:=n+1;
  s[n]:=st
 end;
razb:=n
end;
procedure output(s:mas;n:byte);
var i:byte;
begin
for i:=1 to n do
writeln(s[i])
end;
var s,r:string;
    m:mas;
    n:byte;
begin
clrscr;
input(s,r);
n:=razb(s,r,m);
output(m,n);
readln
end.