Ввести целое число и напечатать его, добавляя перед каждой восьмеркой пробел.

program р39;
  uses crt;
  var i: byte;
      a:string;
begin
  clrscr;
  writeln('a=');readln(a) ;
  for i:=1 to length(a) do
  if (copy(a,i,1) <> '8') then
  write(copy(a,i,1)) else write(' ',8);
  readln;
end.