Текстовый файл. Переписать файл с длинной строки N знаков

@ImDase · Регистрация: 09.01.2014

Доброе время суток!
Есть задание:
Дан текстовый файл, между словами один или больше пробелов, в начале и в конце пробелы могут быть, но не обязательно. В файле могут быть и пустые строки, или строки, содержащие только пробелы. Напишите программу, которая создаст копию данного файла так, чтобы длина срок была не более N ( N<100 ).
Слова при это разделять нельзя, если слово целиком не входит в строку, то мы оставляем строку короче, а слово переносим на следующую. Обработанный текст запишите в файл VYSTUP.txt.
Так же известно, что каждое слово не длинее 100 знаков, решение есть всегда.
Столкнулся с проблемой выхода за границы массива:

Pascal

program ukol10;
 
function ds(s:string):string;
var r:string;
var m,n:integer;
var z:boolean;
begin
        r:='';
        m:=1;
        z:=false;
 
        for n:=1 to length(s) do
        begin
                if s[n]<>' ' then
                begin
                        r[m]:=s[n];
                        inc(m);
                        inc(r[0]);
                        z:=true;
                end
                else
                begin
                        if z then
                        begin
                                r[m]:=' ';
                                inc(m);
                                inc(r[0]);
                                z:=false;
                        end;
                end;
        end;
        if r[m-1]=' ' then dec(r[0]);
 
        ds:=r;
end;
 
procedure rf(n:integer);
var line:string;
var f,t:text;
var p,i:integer;
begin
        assign(f,'vstup.txt'); reset(f);
        assign(t,'vystup.txt'); rewrite(t);
 
        while not eof(f) do
        begin
                readln(f,line);
                line:=ds(line);
                p:=n;
 
                while length(line)>0 do
                begin
                        if length(line)<n then
                        begin
                                writeln(t,line);
                                break;
                        end;
 
                        if line[p]<>' ' then
                        begin
                                dec(p);
                                continue;
                        end;
 
                        for i:=1 to p-1 do
                                write(t,line[i]);
                        writeln(t);
 
                        delete(line,1,p);
                        p:=n;
                end;
        end;
        close(t);
        close(f);
end;
 
var n:integer;
begin
        writeln('zadejte delku N');
        read(n);
        rf(n);
end.

Форумчане, помогите исправить программу)

@ImDase · 17.01.2014, 20:38 **[ТС]**

Знающие ребята, помогите пожалуйста!

@ImDase 0 / 0 / 0 Регистрация: 09.01.2014 Сообщений: 7
	17.01.2014, 20:38 [ТС]	2
	Знающие ребята, помогите пожалуйста! 0

Опции темы