Как сделать чтобы вариантная часть нормально работала?

program avto;
type
spis= record
        name: string[20];
        case v: integer of
        0: (c: string[20]);
        1: (k: string[20]);
      end;
var
  sp: array [1..10] of spis;
  i,n,v: integer;
  otv: string;
begin
  writeln('vvedite kol-vo');
  readln(n);
  for i:=1 to n do
      begin
        writeln('vvedite marku');
        readln(sp[i].name);
          repeat
            if length(sp[i].name)<20 then
              sp[i].name:=sp[i].name+' ';
          until length(sp[i].name)=20;
        writeln('chto vvodim cena-0 ili kol-1');
        readln(otv);
          if otv='0' then
          begin
            v:=0;
            writeln('vvedite cenu');
            readln(sp[i].c);
          end;
          if otv='1' then
          begin
            v:=1;
            writeln('vvedite kol');
            readln(sp[i].k);
          end;
      end;
  writeln('tablica');
  for i:=1 to n do
  begin
  if otv='0' then
    begin
    v:=0;
    sp[i].k:='';
    writeln(sp[i].name,' ',sp[i].c,' ',sp[i].k);
    end;
  if otv='1' then
   begin
    v:=1;
    sp[i].c:='';
    writeln(sp[i].name,' ',sp[i].c,' ',sp[i].k);
    end;
  end;
  readln;
end.