Изучение записей с вариантами. Не могу понять, как доделать

program A5(input,output);
const
n = 6;
type
trecord = record
cena: integer;
kolvo: integer;
name: string;
end;
var
mas: array[1..10] of trecord;
i: integer;
c: integer;
begin
c := 1;
case c of
1:
begin
for i := 1 to 10 do
begin
writeln(' Компьютер#', i);
write('Название компьютера: '); 
readln(mas[i].name);
write('Цена или количество? (1 или 2): ');
end;
writeln('Информация о компьютерах: ');
writeln('#':2, 'Название':20, 'Цена':20);
for i := 1 to 10 do
writeln(i:2, mas[i].name:20, mas[i].cena:20);
end;
end; {of case}
end.

const
  infPrice=1; infCount=2;
type
  TRec = record
    name: String[63];
    case Info: Integer of
      infPrice: (Price: Integer);
      infCount: (Count: Integer);
  end;
...
  for i:=Low(mas) to High(mas) do with mas[i] do begin
    WriteLn; WriteLn('Компьютер # ',i);
    Write(' Название: '); ReadLn(name);
    repeat Write(' Цена (',infPrice,') или Количество (',infCount,'): '); ReadLn(Info);
    until info in [infPrice,infCount];
    case Info of
      infPrice: begin Write(' Цена: '); ReadLn(Price); end;
      infCount: begin Write(' Количество: '); ReadLn(Count); end;
    end;
  end;
...