не правильно реализована программа, взываю)

[Hikerr]

Дан символьный массив a1,a2,...,ak.Сформировать новый, в котором сначала расположены малые латинскиее буквы, затем большие латинские буквы исходного массива.

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

const k=5;
 var A:array[1..k] of char;
     B:array[1..k] of char;
 i,m:integer;
 begin
m:=0;
For i:=1 to k do
 if A[i] in ['a'..'z'] then
 Begin
   inc(m);
   B[m]:=A[i];
 End;
For i:=1 to k do
 if A[i] in ['A'..'Z'] then
 Begin
   inc(m);
   B[m]:=A[i];
 End;
 Writeln(B[i]);
 readln;
 readln
 
end.

[revizor]

Writeln(B[i]);

Массив не так печатается. Нужно каждый элемент отдельно выводить

for i:=1 to k do
   Write(B[i], ' ');

[Hikerr]

не могли бы вы предоставить мне работающий отредактированный текст программы. я как не пытался он не выводит.

так же нужно ли писать ввод массива А ?

[revizor]

сейчас напишу.
Массив А надо вводит, он же пустой в начале программы

const
	k=5;
var
	A:array[1..k] of char;
	B:array[1..k] of char;
	i,m:integer;
begin
	for i:=1 to k do
		Read(A[i]);
		
	m:=0;
	
	for i:=1 to k do
		if A[i] in ['a'..'z'] then
		begin
			Inc(m);
			B[m]:=A[i];
		end;
		
	for i:=1 to k do
		if A[i] in ['A'..'Z'] then
		begin
			Inc(m);
			B[m]:=A[i];
		end;
		
	for i:=1 to k do
		Write(B[i], ' ');
		
	ReadLn;
	ReadLn;
end.

[Hikerr]

эта программа выводит лишь массив в с пробелами между символами. в условии же сказано что из введенного массива нужно вывести сначало маленькие латинские буквы затем большие т.е
из
"bbbbb"
выводит
"bbbbbBBBBB"

вот что не выходит((

[revizor]

Так ведь в массиве "bbbbb" нет больших букв B. одни маленькие.

[revizor]

Я не так задание понял

[Hikerr]

простите меня такого невнимательного человека, спасибо вам большое я был не прав)

[revizor]

Так значит все правильно