[PASCAL] - RYSUNKI - PĘTLA FOR

Witam

Potrzebuje zrobić taką 'Łódkę':

[kod=c++]uses crt;

begin
clrscr;

gotoxy(4,1);
write('x');

gotoxy(4,2);
write('xx');

gotoxy(4,3);
write('xxx');

gotoxy(4,4);
write('xxxx');

gotoxy(4,5);
write('xxx');

gotoxy(4,6);
write('xx');

gotoxy(4,7);
write('x');

gotoxy(1,8);
write('xxxxxxxx');

gotoxy(2,9);
write('xxxxx');

gotoxy(3,10);
write('xxx');

readln;

end.
[/kod]

[b]TYLKO ŻE W PĘTLI FOR Z POMOCĄ GOTOXY[/b]

Mam na razie tylko tyle :

[kod=c++]uses crt;

var
i,j:integer;

begin
clrscr;

for j:=1 to 4 do
for i:=1 to j do
begin
gotoxy(i+3,j);
writeln('x');
end;

readln;

end.
[/kod]

i nie wiem jak wstawić kolejną pętle, bo wsadza mi w jakieś bardzo złe miejsca :/

Pomóżcie :)

W zasadzie nie powinienem podawać gotowego rozwiązania, bo zadania domowe należy odrabiać samemu, ale ponieważ się starałeś umieścić kod w odpowiednich znacznikach (choć nie wyszło, bo nie takie nawiasy) i zarejestrowałeś się na forum, to podam Ci jak narysować kadłub łódki. Z żaglem powinieneś już sobie poradzić. Dla ułatwienia dodam, że najpierw rysujesz w pętli pierwsze 4 linijki, a kolejne 3 w następnej pętli.

for i:= 1 to 3 do begin
  GotoXY(i, i+7);
  for j:= 1 to 11-3*i do Write('x');
end;

Pochwal się swoim kodem, jeśli Ci się uda. Jeśli nie to też możesz.