program ubah huruf (PASCAL)

========================================================================
program lat1;
uses wincrt;
var a,c,d: string;
b,x : integer;
 
begin
a:='wongso dikromo singodimejo';(*kata yang akan di ganti huruf vokalnya*)
b:= length(a);(*menghitung jumlah karakter dari kata tersebut*)



   for x:= 1 to b do begin (*perulangan digunakan untuk membentuk array*)
           if a[x] in ['o'] then begin(* []= array, ketika pada array terdapat huruf 'o' maka diganti 'a'*)
           a[x]='a';
   end;
   end;

writeln(d);
end.

========================================================================