Kader met dubbele rand in Pascal

[petie]

Hey allemaal

Ik heb binnenkort examen programmeren met Pascal free. Ik probeer al uren om deze oefening (zie bijlage) op te lossen maar het lukt me niet. Zou iemand mij hiermee willen helpen aub.

Dit is wat ik tot nu toe heb gevonden:

program VbEx2Oef6;

uses crt;

var lengte,breedte,l,b,teller:integer;

var plus,min,ver:char;

begin

lengte:=0;

breedte:=0;

plus:= '+';

min:= '-';

ver:= '|';

write('Lengte: ');

read(lengte);

write('Breedte: ');

read(breedte);

clrscr;

gotoXY(20,14);

writeln(plus);

for teller:= lengte downto 0 do

begin

writeln(ver);

end;

for teller:= breedte downto 0 do

begin

write(min);

end;

readkey

end.