Repita For Hola, ingresando n Ascendiendo

Program repita_para_Hola;
Uses WinCrt;
Var n,i:integer;

Begin
Writeln ('Cuantas repeticiones para hola');
Writeln ('');
Writeln ('');
Writeln ('');
Writeln ('Ingrese n');
Readln (n);
For i:= 1 to n do;
Writeln ('hola i');
End.