Вывести рост учеников по списку - Turbo Pascal

Формулировка задачи:

QBasic

                    Листинг программы
                
 
                        
                          
                    
CLS
INPUT  “  Кол. учеников в классе:  “ ,  N
DIM  R(N)
FOR I = 1 TO N 
  PRINT  “  Рост “;  I;  “-го  ученика:  “;
  INPUT  “ “ ,  R(i)
  NEXT i
PRINT  “ ”
PRINT  “  Рост учеников по списку: “
FOR I = 1 TO N
  PRINT  R(i);
NEXT i

Вывод на экран:

                    Листинг программы
                
 
                        
                          
                    
Кол. учеников в классе:  5
Рост  1-го ученика:  150
Рост  2-го ученика:  160
Рост  3-го ученика:  170
Рост  4-го ученика:  180
Рост  5-го ученика:  190
 
Рост учеников по списку:
150  160  170  180  190

Pascal

                    Листинг программы
                
 
                        
                          
                    
uses Crt;
var N, R, i: integer;
begin
ClrScr;
write(‘  Кол. учеников в классе:’);
readln(N);
  for i:= 1 to N do
readln(R);
writeln;
writeln(‘  Рост учеников по списку:’);
  for i:= 1 to N do
  write(R:4);
  writeln;
 readln
end.

Вывод на экран:

                    Листинг программы
                
 
                        
                          
                    
Кол. учеников в классе:  5
150
160
170
180
190
 
 Рост учеников по списку:
 190  190  190  190  190

Нужно, чтобы и на выходе в Паскале было также как в QBasic: 150 160 170 180 190 Не получается

Решение задачи: «Вывести рост учеников по списку»

textual
                            Листинг программы 
                        
 
                        
                          
                    
uses crt;
var r:array[1..30] of integer;
    n,i,j,x:integer;
begin
clrscr;
write(' Кол. учеников в классе n=');
readln(n);
writeln('Введите рост учеников:');
for i:= 1 to n do
readln(r[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if r[i]>r[j] then
 begin
  x:=r[i];
  r[i]:=r[j];
  r[j]:=x;
 end;
writeln('Рост учеников по возрастанию:');
for i:= 1 to n do
write(r[i]:4);
readln
end.