нужно заменить буквы в тексте

[Olalya da Silva]

Вводится текст. Цифру 0 заменить на НОЛЬ, а букву А заменить на букву О

[puporev]

А цифру один заменить на 1?

[Olalya da Silva]

больше ничего заменять не надо.

[Olalya da Silva]

исправила.

[Rusl92]

var a:char;
begin
writeln('введите текст');
a:='a';
while a<>'.' do
begin
read(a);
if a='0' then writeln('Nol')
else
if a='A' then writeln('O')
else writeln(a);
end;
readln
end.
то есть текст должен заканчиваться точкой.
а так мы выводим все на экран, меняя то, что нужно!

[Sazary]

uses crt;
var
s : string;
i,len : integer;

begin
clrscr;
writeln('Vvedite tekst');
readln(s);
len := length(s);
i := 0;
while true do
  begin
  i := pos('А',copy(s,i,len-i));
  if i = 0 then break;
  delete(s,i,1);
  insert('О',s,i);
  len := length(s);
  end;
i:=0;
len := length(s);
while true do
 begin
 i := pos('0',copy(s,i,len-i));
 if i = 0 then break;
 delete(s,i,1);
 insert('НОЛЬ',s,i);
 len := length(s);
 end;
writeln('----------------');
writeln(s);
readln;
end.

Если нужно также заменять "а" (в нижнем регистре), то это несложно дописать (аналогично с А).

Rusl92 Немного опередили меня.. Хотя все равно сделано по-разному.

[pomoshnic]

Вот

var s,s2:string;
i:integer;
begin
writeln('Введите текст');
readln(s);
for i:=1 to length (s) do
begin
if s[i]='0' then
begin
s2:=s2+'НОЛЬ';
end else
if s[i]='A' then s2:=s2+'O'
else s2:=s2+s[i];
end;
writeln(s2);
readln
end.

[Rusl92]

Sazary,pomoshnic
а если текст больше 225 символов - ваш код не правильно работает

[Sazary]

Rusl92 А если требуется не только вывести строку на экран, но и иметь возможность работать с ней в дальшейшем?
Что поделать, 255 - максимум в паскале.
Не текстовый редактор же создаем..