Паскаль. Задача по сортировке

[igoreha]

Есть задача: Имеется N транспортных средств (ТС). Каждое ТС характеризуется ценой, мощностью двигателя и грузоподъемностью. Упорядочить список ТС: по мощности двигателя, по грузоподъемности.

const
 n = 5; { количество ТС }
 t = 3; { количество показателей ТС }
var
 i, j, m, s: integer;
ts: array[1..n+1, 1..t] of integer; {хар-ки транспортных средств} 
  
begin
 writeln(' Для каждого транспортного средства введите его Цену,');
 writeln(' Мощность двигателя и Грузоподъемность, подтверждая ввод');
 writeln(' нажатием клавиши <Enter> ');		
   for i:= 1 to n do
     begin
	write (i,'-е транспортное средство -> ');
	for j:= 1 to t do
	read(ts[i,j]);
	end;

writeln ( 'Для сортировки ТС по Мощности двигателя введите с клавиатуры <2> ');	
writeln ( 'или для сортировки ТС по Грузоподьемности введите с клавиатуры <3> ');		
write( ' и нажмите клавишу <Enter>  -> ');	
	readln (s);
	
	for i:=1 to n-1 do
	  begin
		m:=i;
		for j:=i+1 to n do
		if ts[j,s]>ts[m,s] then m:=j;
			for j:=1 to t do
			begin
			ts[n+1, j] :=ts[i, j];
			ts[i, j] :=ts[m, j];
			ts[m, j] :=ts[n+1, j];
			end;
	  end;				    

writeln;
writeln('          Цена  Мощность двигателя  Грузоподъемность');
	for i := 1 to n do
	begin	
	for j:=1 to t do
	write(ts [i, j] : 13) ;
	writeln;
end;	
readln
end.

Как сделать: а) чтобы количество ТС n задавалось пользователем,
б) чтобы при вводе данные показателей ТС отображались строчкой

[Veselyn]

Сообщение от igoreha

а) чтобы количество ТС n задавалось пользователем

Можно сделать через record. Пример, просто подставе свое условие

Сообщение от igoreha

б) чтобы при вводе данные показателей ТС отображались строчкой

Вместо writeln нужно писать write, а вместо readln нужно read. В этих словах окончание -ln перебрасывают курсор на следуйщую строку.

[igoreha]

Сообщение от Veselyn

Вместо writeln нужно писать write, а вместо readln нужно read. В этих словах окончание -ln перебрасывают курсор на следуйщую строку.

В том-то и дело, что написано без -ln, а выводит каждый раз в новой строчке

[Veselyn]

Если при вводе, то возможно на переход влияет цикл for

Сообщение от igoreha

	
   for i:= 1 to n do
     begin
	write (i,'-е транспортное средство -> ');
	for j:= 1 to t do
	read(ts[i,j]);
	end;

[igoreha]

Сообщение от Veselyn

Если при вводе, то возможно на переход влияет цикл for

И как это обойти?

[Veselyn]

Сообщение от Veselyn

Можно сделать через record. Пример, просто подставе свое условие

На слове ример, есть ссылка на пример(...
Обойти все это можно следующим образом

program lab;
type d1:string;
        d2:string;
          d3:string;
           d4:string;
    baza=record
model:d1;
  price:d2;
      force:d3;
          force2:d4;
end;
var
a : array[1..5] of baza;
   i, m, s : integer;
begin
writeln('vvedite kolithectvo automobiley : ');
 read(m);
    for i:=1 to m do
begin
write('auto ',i);
write(',     model ');
     read(a[i].model);
write(',     price ');
     read(a[i].price);
write(',     мощность двигателя ');
     read(a[i].force);
write(',     грузоподъемность ');
     read(a[i].force2);
writeln;
end;
writeln ( 'Для сортировки ТС по Мощности двигателя введите с клавиатуры <2> ');	
writeln ( 'или для сортировки ТС по Грузоподьемности введите с клавиатуры <3> ');		
write( ' и нажмите клавишу <Enter>  -> ');	
readln (s);
if s=2 then
for i:=1
..................... 
//Сортитуете
......................
//И теперь можно вывести
for i:=1 to m do begin
write('model ',a[i].model);
write(',     price ',a[i].price);
write(',     мощность двигателя ',a[i].force);
write(',     грузоподъемность ',a[i].force2);
writeln;
end;
readln;
end.

[igoreha]

большое спасибо, но вопросы

var
a : array[1..5] of baza;

это значит, что количество авто не должно превышать 5?
и не проще ли вместо

type d1:string;
        d2:string;
          d3:string;
           d4:string;
    baza=record
model:d1;
  price:d2;
      force:d3;
          force2:d4;

написать

type 
    baza=record
model:string;
  price:string;
      force:string;
          force2:string;

[Veselyn]

Это значит, что количество авто не должно превышать m
var
a : array[1..m] of baza;

Сообщение от igoreha

и не проще ли вместо

type d1:string;
        d2:string;
          d3:string;
           d4:string;
    baza=record
model:d1;
  price:d2;
      force:d3;
          force2:d4;

написать

type 
    baza=record
model:string;
  price:string;
      force:string;
          force2:string;

Проще, просто я только учус, И когда мне в первые попался тип Record? то там было все росписано как у меня. Сделал пару програм по-аналогии и пивык росписывать.

[igoreha]

Если я заранее не задаю значение количества, как константу а так
a : array[1..m] of baza;
то выскакивает собщение об ошибке