Pascal/Turbo Pascal - Alguien que porfavor me ayude con este programa

tengo un programa cuya salida es
*
**
***

necesito modificarlo para que haga lo mismo pero con la combinación repeat-until
y tambien modificarlo pero usando un ciclo for

este es mi programa

uses crt;
var x,y:string
i:intenger;
begin
clrscr;
x:='*';
y:='*';
i:=2;
while i>=0 do
begin
writeln (x);
x:=x+y;
i:=i-1
end;
repeat until keypressed;
end.

y se supone lo debo pasar a una estructura similar a los de aca abajo pero debe dar la salida del programa de arriba, soy nueva en esto y en verdad quisiera que alguien me orientara por favor.

x:=10;
repeat x:=x-3;
until x>=o;
writeln (x);


for i:=-3 to 11 do
write (2*1);