В заданном тексте заменить каждую гласную букву символом ‘*’, а согласную – символом ‘+’ — Pascal(Паскаль)

const
  gl=['а','е','ё','и','о','у','э','ю','ы','я'];
  sog=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
var
  s:string;
  i:integer;
begin
  writeln('Введите текст...');
  readln(s);
  for i:=1 to length(s) do
  begin
    if LowCase(s[i]) in gl then
      s[i]:='*';
    if LowCase(s[i]) in sog then
      s[i]:='+'
  end;
  writeln('Полученный текст:');
  writeln(s)
end.