Вычислить стоимость покупки

uses crt;
var c,k,s:integer;
    n:char;
begin
clrscr;
repeat
clrscr;
writeln('    Меню программмы');
writeln('-------------------------');
writeln('| № |  Товар  |Стоимость|');
writeln('-------------------------');
writeln('| 1 | Диван   |   700   |');
writeln('| 2 | Кресло  |   300   |');
writeln('| 3 | Шкаф    |   550   |');
writeln('| 4 | Выход   |         |');
writeln('-------------------------');
writeln;
writeln('Введите исходные данные в сответствии с меню:');
repeat
write('Номер товара от 1 до 4 n=');
readln(n);
until n in ['1'..'4'];
case n of
'1':c:=700;
'2':c:=300;
'3':c:=550;
'4':exit;
end;
if n<>'4' then
 begin
  write('Количество экземпляров k=');
  readln(k);
  s:=k*c;
  writeln('Вам необходимо заплатить: ',s,' руб.');
  writeln('Нажмите Enter');
  readln;
 end;
until n='4';
end.