Написать все числа в заданном диапазон по 6 чисел в строке — Pascal(Паскаль)

var
a,b,i,t:integer;
begin
writeln('vvedite nachalo diapazona');
readln(a); 
writeln('vvedite konec diapazona');
readln(b);
for i:=a to b do
begin
write(i,' ');
inc(t);
if t mod 6=0 then writeln;
end;
readln;
end.