Вопрос программа в Pascal

[qqqqq]

Нужно удалить каждую вторую цифру вводимого текста. Например, 1234spongebob228patrick -> 13spongebob28patrick. При этом нельзя использовать массивы и тип String, желательно через char

 

[владусольцев]

Program delodd; var c:Char; code,i:longint; t:boolean; begin read(c); t:=true; while c<>#13 do begin val(c,i,code); if code=0 then begin if t then begin write(c); t:=false; end else t:=true; end else write(c); read(c); end; end.

 

[fast100500]

Необходимо знать, как у тебя сделан ввод символов. Покажи код.