Товарная накладная в виде масива записей. Помогите найти ошибку

[sokla]

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

program sokol;
uses crt,graph;
type tbase=record
    code:string[20];
    name:string[20];
    price:real;
    number:integer;
    sum:real;
    end;
    tmas=array[1..40] of tbase;
var a:tmas;
    i,kol:integer;
    procedure stvor(n:integer; var b:tmas);
    begin
        for i:=1 to n do
        with b[i] do
        begin
              writeln('Vvedit naimenuvanna tovaru');
              readln(name);
              writeln('Vvedit cod tovaru');
              readln(code);
              writeln('Vvedit tsinu tovaru');
              readln(price);
              writeln('Vvedit kilkist tovaru');
              readln(number);
              sum:=price*number;
        end;
    end;
    procedure vyvod( n:integer; b:tmas);
    begin
        textbackground(15);
        textcolor(4);
        writeln('Im9      Kod      Tsina    Kilkist  Suma      ');
        textcolor(0);
        window(1,2,10,n+2);
        for i:=1 to n do with b[i] do writeln(name);
        window(11,2,20,n+2);
        for i:=1 to n do with b[i] do writeln(code);
        window(21,2,30,n+2);
        for i:=1 to n do with b[i] do writeln(price:5:2, ' ua');
        window(31,2,40,n+2);
        for i:=1 to n do with b[i] do writeln(number);
        window(41,2,50,n+2);
        for i:=1 to n do with b[i] do writeln(sum:5:2, ' ua');
    end;

begin
    clrscr;
    writeln('Vvedit kilkist naimenuvan tovariv');
    read(kol);
    stvor(kol,a);
    clrscr;
    vyvod(kol,a);
    readkey;
end.

http://s54.radikal.ru/i143/1001/5c/0f458f20fd5a.jpg

в итоге не удаетса записать название первого товара, а дальше все ок

[Deamonig]

вот такой код решает проблему )

program sokol;
uses crt,graph;
type tbase=record
    code:string[20];
    name:string[20];
    price:real;
    number:integer;
    sum:real;
    end;
    tmas=array[1..40] of tbase;
var a:tmas;
    i,kol:integer;
    procedure stvor(n:integer; var b:tmas);
    var k:byte;
     begin
        for i:=1 to n do
        with b[i] do
        begin
              writeln('Vvedit naimenuvanna tovaru');
              if k<>1 then readln(name);
              readln(name);
              k:=1;
              writeln('Vvedit cod tovaru');
              readln(code);
              writeln('Vvedit tsinu tovaru');
              readln(price);
              writeln('Vvedit kilkist tovaru');
              readln(number);
              sum:=price*number;
        end;
    end;
    procedure vyvod( n:integer; b:tmas);
    begin
        textbackground(15);
        textcolor(4);
        writeln('Im9      Kod      Tsina    Kilkist  Suma      ');
        textcolor(0);
        window(1,2,10,n+2);
        for i:=1 to n do with b[i] do writeln(name);
        window(11,2,20,n+2);
        for i:=1 to n do with b[i] do writeln(code);
        window(21,2,30,n+2);
        for i:=1 to n do with b[i] do writeln(price:5:2, ' ua');
        window(31,2,40,n+2);
        for i:=1 to n do with b[i] do writeln(number);
        window(41,2,50,n+2);
        for i:=1 to n do with b[i] do writeln(sum:5:2, ' ua');
    end;

begin
    clrscr;
    writeln('Vvedit kilkist naimenuvan tovariv');
    read(kol);
    stvor(kol,a);
    clrscr;
    vyvod(kol,a);
    readkey;
end.

[sokla]

пасибо большое=)