');
write('');
write(nbsp(copy(s, 1, pos(#9, s)-1)));
s:=copy(s, pos(#9, s)+1, length(s));
write(' | ');
write(nbsp(copy(s, 1, pos(#9, s)-1)));
s:=copy(s, pos(#9, s)+1, length(s));
write(' | ');
write(nbsp(copy(s, 1, pos(#9, s)-1)));
s:=copy(s, pos(#9, s)+1, length(s));
write(' | ');
write(nbsp(copy(s, 1, pos(#9, s)-1)));
s:=copy(s, pos(#9, s)+1, length(s));
write(' | ');
if for_FE then
write('')
else
write('');
write(s);
if for_FE then
write('')
else
write('');
write(' | ');
writeln('
');
end; { writeline }
procedure writeremark(s : string);
begin
if not endwritten then
begin
endtable;
endwritten:=true;
writeln('