// add spaces to whole file
// not for input line

number_counter := 0
line_num := 0

repeat
  inc(line_num);
  GotoLine(line_num);
  s2 := CurrentLine;
  if (s2 > '') and (s2 <> '%') and (s2[1] <> 'O') then
  begin
  
    addSpaces;
  end;
until line_num = LineCount;