Дана последовательность чисел, посреди которых имеется один нуль. Вывести на печать

program zz1;
const n = 13; // задаем количество частей в массиве
R:array [1..n] of integer=( 26, -53, 10, -67, 12, -34, 20, 90, 14, -78, 0, -45, 66 ); // задаем последовательность чисел
var i, k:integer; // задаем переменные целого типа
begin
for i:=1 to n do // организуем цикл, в котором переберем все элементы массива
begin
if R[i] = 0 then k:=i; // проверяем, если элемент равен нулю, то запоминаем его номер
end;
for i:=1 to k do // организуем цикл, в котором переберем все элементы массива до нуля
write( , R[i]); // выводим ответ
end.