Script:Opperations with numbers

program Spell_Out; var counter, limit: integer; word: string; begin write ('Enter the word to be spelled out: '); readln (word); limit := length (word); counter := 1; writeln (word, ' spelled out is:'); while counter <= limit do         begin write (' ', copy (word, counter, 1)); counter := counter + 1; end; writeln; readln; end.