Число в вектор.

[Александр181189]

ввести с клавиатуры число, преобразоват его в вектор.
не выводит нулевой вектор, как исправить??? подскажите пожалуйста!

uses wincrt;
var n,m:longint;
b:array[1..10] of integer;
k,mx,i,j,c:integer;
begin
clrscr;
write('n=');
readln(n);
m:=n;
k:=0;
while m>0 do
begin
k:=k+1;
b[k]:=m mod 10;
m:=m div 10;
end;
for i:=1 to k div 2 do
begin
c:=b[i];
b[i]:=b[k-i+1];
b[k-i+1]:=c;
end;
writeln('Вектор:');
for i:=1 to k do
write(b[i],' ');
writeln;
mx:=b[i];
for i:=0 to k do
begin
for j:=1 to k do
if i=b[j] then
begin
end;
if (b[i]>mx) then mx:=b[i];
end;
write('max=',mx);
readln
end.

[Don Karleone]

наверное надо вот так:

var n,m:longint;
b:array[1..10] of integer;
k,mx,i,j,c:integer;

begin
  clrscr;
  write('n=');
  readln(n);
  m:=n;
  k:=0;
  while m>0 do  
    begin
      k:=k+1;
      b[k]:=m mod 10;
      m:=m div 10;
    end;
  for i:=1 to k div 2 do
    begin
      c:=b[i];
      b[i]:=b[k-i+1];
      b[k-i+1]:=c;
    end;
  writeln('Вектор:');
  for i:=1 to k do  
    write(b[i],' ');
  if k = 0 then write(b[1]);  
    writeln;
  mx:=b[1];  
  for i:=2 to k do  
    if (b[i]>mx) then mx:=b[i];
  write('max=',mx);
  readln
end.