На основе сведений о купленных билетах на поезд Нальчик-Москва, где ровно N вагонов и в каждом вагоне ровно М мест, вагоны двух типов: мягкие и жесткие(стоимость билетов разные). Определить всю сумму вырученных денег от проданных билетов на каждый тип вагонов, если все билеты проданы — Pascal(Паскаль)

uses crt;
var a:array[1..20,1..50] of word;
    n,m,km,i,j:byte;
    cm,cz:word;
    sm,sz:longint;
begin
clrscr;
repeat
write('Введите общее количество вагонов от 15 до 20 n=');
readln(n);
until n in [15..20];
repeat
write('Введите количество мягких вагонов от 5 до ',n-5,' km=');
readln(km);
until km in [5..n-5];
repeat
write('Количество мест в вагонах от 40 до 50 m=');
readln(m);
until m in [40..50];
write('Введите цену билета в жестком вагоне cz=');
readln(cz);
write('Введите цену билета в мягком вагоне cm=');
readln(cm);
sm:=0;
for i:=1 to km do
for j:=1 to m do
 begin
  a[i,j]:=cm;
  sm:=sm+a[i,j];
 end;
writeln('Выручка от билетов в мягких вагонах составила ',sm);
sz:=0;
for i:=km+1 to n do
for j:=1 to m do
 begin
  a[i,j]:=cz;
  sz:=sz+a[i,j];
 end;
writeln('Выручка от билетов в жесткихих вагонах составила ',sz);
readln
end.