Задача 12.2. Скласти програму для замiни в заданому словi всiх букв "а" на "А".

Program PR1;
Var
  t,t1: string[20];
  l,i: integer;
Begin
  t:='Iнформатика'; {задане слово}
  t1:=''; {шукане слово}
  l:=Length(t); {довжина заданого рядка}
 For i:=1 To l do
 If Copy (t,i,1)='а' Then t1:=t1+'А'
 Else t1:=t1+Copy(t,i,1);
 WriteLn('Задане слово - ',t);
 WriteLn('Шукане слово - ',t1);
End.
Результати роботи програми:
Задане слово - Інформатика
Шукане слово - IнформАтикА