Известно что в массиве имеются нулевые элементы . напечатать все элементы кроме первого. на паскале

var  A: array [0..3] of real; //Объявляем массив действ. чисел (измените, как надо тут)  i: byte; //Объявляем переменную типа Byte, больше всё равно не надо, так незачем и память тратитьbegin //Начало программы  for i := 0 to 3 do //Заполняем массив числами с клавиатуры...    readln(a[i]); //...заполняем  for i := 1 to 3 do //Проходимся по массиву снова, от первого до последнего элемента    write(a[i], ); //Выводим элемент с индексом iend. //Конец программы