[Pascal] per niubbo!

[Marci]

Salve a tutti, siccome a scuola faccio informatica il professore mi ha chiesto se riuscivo a fare una funzione che data una stringa me la inserisse in posizione centrata in un altra stringa di 100 caratteri utilizzando il Pascal.
Io ci sto sbattendo la testa da 2 ore e fino ad ora mi è riuscito questo solo che quando lo faccio partire, inserisco S1 e mi si blocca tutto, che devo fare?
Program uno;
var s1,s2: string;
a,b,c,d,e,f,g: integer;

begin
readln(s1);
a:= length(s1);
b:= a div 2;
c:= 5;
d:=1;
e:=1;
while d <= c-b do begin
s2[d]:= '*';
d:=d+1;
end;
insert ('casa',s2,4);
g:= length(s2)+1;
for f:= g to 10 do
s2[f]:='*';
writeln(s2);
readln;
end.
Byezz e vi prego!