Ввод строки в символьный массив — Pascal(Паскаль)

program getstarr;
const
     SIZE=30;
var
     buf:array[1..SIZE] of char;
     n:integer; { реальная длина введенной строки }
begin
     write('->');
     n:=0;
     repeat
		 if NOT EOLN then
			begin
				n:=n+1;
				read(buf[n]);
			end;
	until EOLN or (n=SIZE);
     writeln('Длина введенной строки ',n,' символов.');
end.