Написать программу удаления строки из подстроки — Pascal(Паскаль)

 Program zadanie;
Uses crt;
var
s1,s2,s:string;
k:integer;
procedure ins(k:integer;s1,s2:string; var s:string);
var
a,b:string;
begin
a:='';
b:='';
a:=copy(S2,1,k-1);
b:=copy(S2,k,length(S2)-k+1);
s:=concat(a,S1,b);
end;
begin
Clrscr;
readln(k);
readln(s1);
readln(s2);
ins(k,s1,s2,s);
writeln(s);
readln;
end.

var
m:string;
f,g:integer;
procedure Read(d:integer);
begin
readln(d);
end;
procedure StrIn(var k:string);
begin
readln(k);
end;
procedure del(var s:string; ps,num:integer);
var
i:integer;
begin{delete}
for i:=ps to length(s)-num do
s[i]:=s[i+num];
s[0]:=char(length(s)-num);
end;{delete}
begin
StrIn(m);
Readln(f);
Readln(g);
del(m,f,g);
Write(m);
readln;
end.