3-eck rahmen

[TheFlame]

Hy!
ich erhalte morgen einen riesen rüffel,wenn ich diese aufgabe nicht habe,also vielleicht ist jemand so lieb und hilft mir...:)
dieser code produziert ein normales 3-eck mit sternchen,ich sollte jetzt aber nur den Rahmen des 3-ecks haben...

code:


procedure flaecheGleichschenkligesDreieck;
var
anzLeer:integer;
anzSterne:integer;
anzZeilen:integer;
i:integer;
j:integer;
k:integer;
l:integer;

begin
wiederholen:=true;
writeln('Programmverlassen mit -1');
while wiederholen do begin
write('Gib die Seitenlänge ein: ');
readln(anzZeilen);
anzLeer:=anzZeilen;
anzSterne:=1;
if anzZeilen=-1 then
wiederholen:=false;
for i:=1 to anzZeilen do begin
for j:=1 to anzLeer do
write(' ');
for k:=1 to anzSterne do
write(' *');
writeln;
anzSterne:=anzSterne +1;
anzLeer:=anzLeer -1;
end;
end;
end;