witam wszystkich Smile

mam maly problem z tym kodem

program trozjkat;
uses crt;
procedure trojkat(ile_wierszy:byte);
var i,j,ile_gwiazdek,ile_spacji:byte;
begin
for i:=1 to ile_wierszy do
begin
ile_spacji:=ile_wierszy-i;
for j:=1 to ile_spacji do
write(' ');
ile_gwiazdek:i-1)*2+1;
for j:=1 to ile_gwiazdek do
write ('*');
writeln(' ');
end;
end;
var n:byte;
begin
clrscr;
write('Ile wierszy');
readln(n);
if (n<=0) or (n>25) then
begin
writeln('Liczba ma byc z przedzialu [1,25]');
halt;
end;
trojkat(n);
repeat until keypressed;
end.

a mianowicie Smile tylko ten trójkąt z gwiazdek ma być czubkiem do dołu i na końcu program powinien zadać pytanie:,,czy wykonać jeszcze raz? [T/N] i dostosować się do wyboru użytkownika

ja juz sie pogubilem w tym pascalu bo znam sie na nim jak świnia na gwiazdach Wink hehe

jest jeszcze inny program ktory ma za zadanie ;Napisz program losujący 5 różnych liczb z zakresu od 126 do 2315. Liczby wypisać na ekranie malejąco. Napewno chodzi tu o funkcje radom czy radomize ... pomoze ktos ??