Вывести строку из букв. Гласные буквы вывести в одном окне по диагонали окна, согласные в - другом окне по другой диагонали

uses crt;
const gl=['А','Е','И','О','У','Ы','Э','Ю','Я'];{гласные}
      ds=['А'..'Я','Ё'];{все буквы}
var s1,s2:string;
    c:char;
    sg:set of char;
    i,kg,ks,x,y:byte;
begin
clrscr;
writeln('Введите строку из прописных русских гласных и согласных букв,');
writeln('не более 24 тех и других, окончание ввода Enter');
{можно ввести любой другой набор букв}
s1:='';{строка гласных}
s2:='';{строка согласных}
kg:=0; {кол. гласн.}
ks:=0;{кол. согл.}
sg:=ds-gl;{согласные}
repeat
c:=readkey;{читаем код символа}
if c in gl then{если гласный}
 begin
  write(c);{выводим}
  s1:=s1+c;{добавляем в строку гласных}
  kg:=kg+1;{считаем}
 end;
if c in sg then{аналогично согласные}
 begin
  write(c);
  s2:=s2+c;
  ks:=ks+1;
 end;
if (c=#13)or(ks=24)or(kg=24) then writeln;{если Enter или 24 любых, на новую строку}
until (c=#13)or(ks=24)or(kg=24);{конец ввода}
clrscr;{очистим экран}
x:=1; y:=1;{первое окно}
window(x,y,x+kg,y+kg-1);{положение и размеры}
textbackground(2);{фон}
textcolor(14);{цвет текста}
clrscr;{очистим}
for i:=1 to kg do{по количеству}
 begin
  gotoXY(x+i-1,y+i-1);{выводим по диагонали слева направо}
  write(s1[i]);
  delay(500);{если нужно без задержки, убрать}
 end;
delay(3000);{задержка 3 сек.}
x:=25;y:=1;{второе окно}
window(x,y,x+ks,y+ks-1);
textbackground(6);
textcolor(9);
clrscr;
for i:=1 to ks do
 begin
  gotoXY(ks-i+2,y+i-1);{по диагонали справа налево}
  write(s2[i]);
  delay(500);{если нужно без задержки, убрать}
 end;
repeat {включаем звук}
sound(400);
until readkey=#27;{пока не нажали Esc}
nosound;{выключаем звук}
window(1,1,80,25);{очищаем экран}
textbackground(0);
textcolor(15);
clrscr;
end.