файловые переменные

[sestrenka141989]

пожалуста, помогите разобратся

Дан текстовый файл. Абзацы выделяются в нем с помощью новой строки (5 пробелов), а пустых строк нет. Вставить между соседними абзацами по пустой строке.

писала так:
var
f, temp: text;
temps: string;
da: boolean;
i: shortInt;
begin
assign(f, 'C:\in.txt');
assign(temp, 'C:\tem.txt');
reset(f);
rewrite(temp);


while not eof(f) do
begin
readln(f,temps);
da:=true;
while da and (i<=5) do
begin
if temps[i] <> ' ' then da:=false;
inc(i)
end;
if da then
writeln(temp,' ');
end;
close(f);
close(temp);
readln
end.

но не работает(((

[evg_m]

da:=true;
while da and (i<=5) do

вначале цикла
da =True
а чему равно j ?
а также где оно меняется ?

и не забывайте при оформлении сообщения использовать специальное оформление (кнопочка #)