B3: danh sách

trùi ui!!! sai rui fải hk?? sửa nghe bà con ơi!!
program danh_sach_lop;
var i,n:string;
      a: array [1..250] of integer;
begin
write('nhap so ban trong lop cua ban ');
readln(n);
for i:=1 to n do
begin
write(' ban thu ',i,' la ');
read(a[i]);
end;
for i:=1 to n do
writeln(a[i]:4);
readln
end.