Есть стек с последовательностью больших и малых символов

Помогите написать программу,срочно нужно:
"Есть стек с последовательностью больших и малых символов.Большие записать в второй, малие- в третий."

0

А вот и ответ (код программи)


program _Stacku_Dunami4ni_Vubory_Liter;
uses Crt;
type
posel=^lanka;
element=char;
lanka = record
peosel;
el:element;
end;
stack=posel;

var
stk1,stk2,stk3:stack;
x,y,g:element;
p,pr,pr2osel;
r:byte;
i,n:integer;

procedure In_Stack_D(var stk:stack; elt:element);
var posel;
begin
new(p);
p^.pe:=stk;
stk:=p;
p^.el:=elt;
end;

procedure PRNT_Stk_D(var stk:stack);
var posel;
begin
if stk=nil then
else
begin
writeln;
write('STACK1 mistut: ');
p:=stk;
while p<> nil do
begin
write(p^.el,' ');
p:=p^.pe;
end;
end;
end;

procedure PRNT_1(var stk:stack);
var posel;
begin
p:=stk^.pe;
write('<< STACK2 skladaetsja >>: ');
for i:=1 to n do
begin
g:=p^.el;
if (g='q') or (g='w') or (g='e') or (g='r')
or (g='t') or (g='y') or (g='u') or (g='i')
or (g='o') or (g='p') or (g='a') or (g='s')
or (g='d') or (g='f') or (g='g') or (g='h')
or (g='j') or (g='k') or (g='l') or (g='z')
or (g='x') or (g='c') or (g='v') or (g='b')
or (g='n') or (g='m')
then
begin
writeln(g,' ');
In_Stack_D(stk1,g);
p:=p^.pe;
end
else
p:=p^.pe;
end;
end;

procedure PRNT_2(var stk:stack);
var posel;
begin
write('<< STACK3 skladaetsja >>: ');
p:=stk^.pe;
for i:=1 to n do
begin
g:=p^.el;
if (g='Q') or (g='W') or (g='E') or (g='R')
or (g='T') or (g='Y') or (g='U') or (g='I')
or (g='O') or (g='P') or (g='A') or (g='S')
or (g='D') or (g='F') or (g='G') or (g='H')
or (g='J') or (g='K') or (g='L') or (g='Z')
or (g='X') or (g='C') or (g='V') or (g='B')
or (g='N') or (g='M')
then
begin
writeln(g,' ');
In_Stack_D(stk,g);
p:=p^.pe;
end
else
p:=p^.pe;
end;
end;

begin
clrScr;
TextAttr:=5;
new(stk1);
new(stk2);
new(stk3);
stk1:= nil; stk2:= nil; stk3:= nil;
writeln(' ************ Stack ************');
window(10,1,75,12);
writeln;
textcolor(2);
writeln(' MENU');
writeln;
textcolor(12);
writeln(' ________________________________________ ____');
writeln(' | 0. Kinez robotu | ');
writeln(' | 1. Zapus elementiv y Zahalnuj STACK1 |');
writeln(' | 2. Vubir elementiv y STACK2(mali literu) | ');
writeln(' | 3. Vubir elementiv y STACK3(veluki literu)|');
writeln(' |_______________________________________ _____|');

window(5,13,75,21);
textcolor(3);
writeln('vvedit nomer puncty');
readln(r);
while r<>0 do
begin
case r of
0:begin
writeln('kinets robotu');
end;

1:begin
textAttr:=2;
writeln('------- Zadanya STECKA1 --------');
writeln('vvedit kilkist sumvoliv n:');
readln(n);
for i:=1 to n do
begin
TextAttr:=2;
writeln('<< Zadayte element do stecka >>');
readln(x);
In_Stack_D(stk1,x);
end;
TextAttr:=4;
PRNT_Stk_D(stk1);
end;

2:begin
TextAttr:=10;
writeln('------- STECK2 --------');
writeln('vubir malux liter');
PRNT_1(stk1);
writeln;
PRNT_Stk_D(stk2);
end;

3:begin
TextAttr:=9;
writeln('------- STECK3 --------');
writeln('vubir velukux liter');
PRNT_2(stk1);
writeln;
PRNT_Stk_D(stk3);
end;
end;

writeln;
writeln('vvedit punkt');
readln(r);
end;


end.

0