Ввод символьного массива — Pascal(Паскаль)

program instarr;
const
     N=35;
var
     student:array[1..N] of string;
     name:string[30];
     i:integer;
begin
     i:=1;
     repeat
          write('Введите фамилию или <Enter> для завершения -> ');
          readln(name);
          if length(name)<>0
               then begin
                    student[i]:=name;
                    i:=i+1;
               end;
     until (length(name)=0) or (i=N);

     { вывод введенного списка }
     i:=1;
     while (length(student[i])<>0) and (i<=N)  do begin
               writeln(student[i]);
               i:=i+1;
          end;
end.