Определение символа в строке

[S2k]

Нужно считывать посимвольно из текстовой переменной введенной пользователем. Т.е. пользователь вводит строку, а программа например изменяет 2 символ на другой, и если 3 символ пробел то поставить вместо него "1". Подскажите плиз как сделать такое вот.

[S2k]

И еще, чтобы не создавать новый топик пишу здесь.
Почему зависает вот эта процедура? Вроде все правильно, а оно виснит.


procedure ShowTable;
var i:integer;
begin
setcolor(0,0,0);
fillRect(0,0,getWidth,getHeight);

setcolor(255,255,255);
for i:=0 to 6 do
begin
drawline(0,i*16,getWidth,i*16);
end;

for i:=0 to 3 do
begin
drawline(i*(getWidth div 3),0,i*(getWidth div 3),getHeight);
end;

repaint;
delay(2000);
end;

[ViNT]

Для посимвольной обработки строк служат функции GetChar и SetChar. Их использование описано в справке. На счет процедуры - вроде бы всё правильно.