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

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;

...

end;

procedure outbuff(var f : text);

...

end;

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

...

end;

begin

assign(f, 'in.txt'); assign(g, 'out.txt');

reset(f); rewrite(g);

while getlex(f, lex, nume) do

putlex(g, lex, nume);

if buff<>'' then outbuff(g);

close(f); close(g);