Обробка текстів, Детальна інформація

procedure outbuff(var f : text);

begin

writeln(f, buff); buff:=''; bp:=1;

end;

Як уже зазначалося, запис слова в рядок слів задається процедурою putlex:

procedure putlex(var f : text; lex : str; nume : integer);

var llx, k : integer;

begin

if nume > 0 then

outbuff(f);

for k:=1 to nume-1 do

writeln(f);

llx:=length(lex);

if (bp>1) and (bp+llx>mx) then

outbuff(f)

else

if buff<>'' then

begin

buff:=buff+' '; bp:=bp+1;

end;

buff:=buff+lex; bp:=bp+llx;

end;

Нарешті, програма копіювання тексту з перетворенням рядків має вигляд:

program f80;

const mx=80;

type str=string[mx];

var f, g : text;

const buff : str=''; bp : integer=1;

var lex : str; nume : integer;

function getlex(var f : text; var lex : str; var nume : integer):boolean;