Нужно сделать программку в паскале, чтоб выводился российский и английский алфавит

begin

 var Q_En := new Queuelt;chargt;;

 for var i:='A' to 'Z' do

   Q_En.Enqueue(i);

 var Q_Ru := new Queuelt;chargt;;

 for var i:='А' to 'Я' do

   Q_Ru.Enqueue(i);

 for var i:= 'А' to 'Я' do

 begin

   Writeln(Q_Ru.Peek, Q_En.Peek);

   Q_Ru.Enqueue(Q_Ru.Dequeue);

   Q_En.Enqueue(Q_En.Dequeue);

 end;

end.

Begin

Var Rus := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

Var En := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

For var i:= 0 to 32 do

Begin

WriteLn(Rus[i mod 33+1], En[i mod 26+1]);

End;

End.