Как на паскале abc net написать программу которая выводит на экран текст несколько раз

Program b1; // отмеченные // писать не надо/ var a: string; // строковая переменная// i: integer; // для цикла for// n: integer; // кол-во раз// begin // начало программы// n:=4; //кол-во раз(в данном случае 4)// a:='this is a text'; //текст// for i:=1 to n do //цикл с 1 до n// writeln(a); // вывод текста с каждой новой строки, если надо все в одну строку, то используем write(a);// end. //конец//