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

Var     St,z, s: string;
    i: integer;
Begin
    Write('vvedite stroky teksta - St ');
    Readln(St);
    z:='аеёиоуэюя'; {может что из букв и забыла?}
    s:='бвгджзклмнпрстфхцчшщ';
For i:=1 to length(St) do
begin 
  if pos(St[i],z)>0 then St[i]:='*'
  else 
     if pos(St[i],s)>0 then St[i]:='+'
end;
  writeln(st);
  readln;
end.

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.

Program mgi;
Uses crt;
Const sk='*';ks='+';
Var i,n:integer; t:string;
Begin
Clrscr;
Writeln('Vvedite text: ');Read(t);
n:=length(t);
For i:=1 to n do
if t[i] in ['a','e','i','o','u','y','A','E','I','O','U','Y'] then t[i]:=sk
else if t[i] in ['b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','z']+
['Z','B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X'] then t[i]:=ks;
Writeln('Vot chto poluchilos: ',t);
End.