Как в этой программе, написанной в паскале, поменять цикл с while на repeat until? Подскажите - буду благодарен)

var
x,y,i,rezult:integer;
begin
x:=1;
y:=4;
i:=0;
rezult:=0;
while (x 0 then write(x);
if i mod 5 = 0 then writeln(x);
end;
end.