spojenie cifier

program spojeniecifier;
{$APPTYPE CONSOLE}
uses crt;
var c:string;
    i:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte cifry: ');
  readln(c);
  i:=0;
  while i<=Length(c) do
    if c[i]=' ' then Delete(c, i, 1)
    else Inc(i);
  write(c);
  readln;
end.