первод из цифр в текст

var
 on,tw,th,fo,fi,si,se,ei,ni,ze:text;
begin
 assign(f,'1.txt');
 reset(f);
 assign(g,'2.txt');
 rewrite(g);
 read(g,a..z);
 on:='ONE';
 tw:='TWO';
 th:='THREE';
 fo:='FOUR';
 fi:='FIVE';
 si:='SIX';
 se:='SEVEN';
 ei:='EIGHT';
 ni:='NINE';
 ze:='ZERO';
 ///но так не получилось, я если честно даже не представляю какой нужен алгоритм

VAR
  Ch: CHAR;
BEGIN
  Assign(input, '1.txt');
  Reset(input);
  Assign(output, '2.txt');
  Rewrite(output);
  WHILE NOT Eof(input)
  DO
    BEGIN
      READ(Ch);
      IF (Ch >= '0') AND (Ch <= '9')
      THEN 
        CASE Ch OF
          '0': WRITE('ZERO');
          '1': WRITE('ONE');
          '2': WRITE('TWO');
          '3': WRITE('THREE');
          '4': WRITE('FOUR');
          '5': WRITE('FIVE');
          '6': WRITE('SIX');
          '7': WRITE('SEVEN');
          '8': WRITE('EIGHT');
          '9': WRITE('NINE')
        END
      ELSE
        WRITE(Ch)
    END          
END.

VAR
  Ch: CHAR;
BEGIN
  Assign(input, '1.txt');
  Reset(input);
  Assign(output, '2.txt');
  Rewrite(output);
  WHILE NOT Eof(input)
  DO
    BEGIN
      READ(Ch);
      IF (Ch >= '0') AND (Ch <= '9')
      THEN 
        CASE Ch OF
          '0': WRITE('ZERO');
          '1': WRITE('ONE');
          '2': WRITE('TWO');
          '3': WRITE('THREE');
          '4': WRITE('FOUR');
          '5': WRITE('FIVE');
          '6': WRITE('SIX');
          '7': WRITE('SEVEN');
          '8': WRITE('EIGHT');
          '9': WRITE('NINE')
        END
      ELSE
        IF Ch <> ' '
        THEN
          WRITE(Ch)
    END          
END.

VAR
  s: STRING;
  i: INTEGER;
BEGIN
  READ(s);
  IF s[1] <> ' '
  THEN
    WRITE(s[1]);
  FOR i := 2 TO Length(s)
  DO
    IF s[i] = ' '
    THEN
      BEGIN
        IF s[i - 1] <> ' '
        THEN
          WRITE(s[i])
      END
    ELSE
      WRITE(s[i])
END.

VAR
  Ch: CHAR;
BEGIN
  Assign(input, '1.txt');
  Reset(input);
  Assign(output, '2.txt');
  Rewrite(output);
  WHILE NOT Eof(input)
  DO
    BEGIN
      READ(Ch);
      IF (Ch >= '0') AND (Ch <= '9')
      THEN 
        CASE Ch OF
          '0': WRITE('ZERO');
          '1': WRITE('ONE');
          '2': WRITE('TWO');
          '3': WRITE('THREE');
          '4': WRITE('FOUR');
          '5': WRITE('FIVE');
          '6': WRITE('SIX');
          '7': WRITE('SEVEN');
          '8': WRITE('EIGHT');
          '9': WRITE('NINE')
        END
      ELSE
        IF Ch <> ' '
        THEN
          WRITE(Ch) /// а когда я суда ставил WRITE(Ch,' '), то получалось ONE a n d TWO, а мне надо ONE and TWO
    END          
END.