Обработка литерных величин. срочно

uses crt;
var s1,s2:string;
    i,j,n,k:byte;
begin
clrscr;
write('S1= ');readln(s1);
write('S2= ');readln(s2);
if length(s1)<>length(s2)then{если длины строк разные}
  begin
   write('No!');{нет}
   readln;{читаем}
   exit;{завершаем программу}
  end
else{если одинаковые, работаем}
  begin
   n:=0;{считаем что совпадений ноль}
   for i:=1 to length(s1) do
    begin
     k:=0;j:=1;{совпадений конкретной буквы ноль}
     while j<=length(s2) do
     if s2[j]=s1[i] then{если находим одинаковые}
       begin
         k:=1;{фиксируем}
         delete(s2,j,1);{удаляем эту букву, чтоб снова не попалась}
         break;{прекращаем поиск этой буквы}
       end
     else j:=j+1;{если не совпала, смотрим следующую}
     if k=1 then n:=n+1{если совпала, считаем совпадения}
      else{если нет ни одного совпадения этой буквы}
       begin
         writeln('No!');{нет}
         readln;{читаем}
         exit;{завершаем программу}
       end;
    end;
  if n=length(s1) then write('Yes!');{если все совпали, Да!}
 end;
readln
end.

uses crt;
const gl=['A','E','I','O','U','Y'];{Заглавные гласные буквы}
var s1,s2:string;
    i,j:byte;
begin
clrscr;
write('S1= ');readln(s1);
write('S2= ');readln(s2);
for i:=length(s1) downto 1 do{идем по строкам с конца, чтоб 
при удалении буквы не сбить нумерацию}
for j:=length(s2) downto 1 do
if (upcase(s1[i]) in gl)and(upcase(s1[i])=upcase(s2[j]))then
{если в верхнем регистре эта буква есть в множестве и она равна букве из второй строки}
  begin
   delete(s1,i,1);{удаляем из первой строки}
   delete(s2,j,1);{удаляем из второй}
   break;{больше с этой буквой не работаем, нужны только совпадающие}
  end;
writeln('S1= ',s1);
writeln('S2= ',s2);
readln
end.

uses crt;
var s:string;
    i:byte;
begin
clrscr;
write('S= ');readln(s);
for i:=length(s) downto 2 do{идем с конца до 2}
insert('_',s,i);{вставляем симол перед каждой буквой}
write('S= ',s);
readln
end.