Массивы в Pascal

[Chudo4258]

я не проверяла

Проверь. Долга запистить паскаль???

[Izymka]

program n_8_1;
uses CRT;
const
max=100;
var
m:array[1..max] of integer;
t,j,i,k:integer;
n:byte;
begin
Write('n=');Read(n);Write('k=');Read(k);
for i:=1 to n do
 begin
Write('m[',i,']='); Read(m[i]);
end;
{ sortuvannya }
for i:=1 to k-1 do
for j:=1 to k-i do
if m[j+1]>m[j] then
begin
t:=m[j];
m[j]:=m[j+1];
m[j+1]:=t;
end;
WriteLn('Results:');
WriteLn;
for i:=1 to k do Write(m[i]:8);
begin
for i:=n downto n-(k-1) do
for j:=n downto n-(k-i) do
if m[j+1]<m[j] then
begin
t:=m[j];
m[j]:=m[j+1];
m[j+1]:=t;
end;
WriteLn('Results:');
for i:=n downto n-(k-1) do Write(m[i]:8);
end;
end.

вот так?! только сортировка последнего не происходит((

как отсортировать??!! помогите!!!!!!!!! очень очень нужно!!!!!!!!

program n_8_1;
uses CRT;
const
max=100;
var
m:array[1..max] of integer;
t,j,l,i,k:integer;
n:byte;
begin
Write('n=');Read(n);Write('k=');Read(k);
for i:=1 to n do
 begin
Write('m[',i,']='); Read(m[i]);
end;
{ sortuvannya }
for i:=1 to k-1 do
for j:=1 to k-i do
if m[j+1]>m[j] then
begin
t:=m[j];
m[j]:=m[j+1];
m[j+1]:=t;
end;

WriteLn('Results:  ');
WriteLn;
for i:=1 to k do Write(m[i]:8);WriteLn;
{ sortuvannya }
for i:=n-(k-1) to n do
for j:=1 to n do
if m[j+1]<m[j] then
begin
l:=m[j];
m[j]:=m[j+1];
m[j+1]:=l;
end;
WriteLn('Results:  '); WriteLn;
for i:=n-(k-1) to n do Write(m[i]:8);
WriteLn;
end.

так выполняется сортировка, но неправильно!! что изменить??? очень нужно!!!!!!!!!!!!!!!!!!!!!!!!

[Izymka]

program n_8_1;
uses CRT;
const
max=100;
var
m:array[1..max] of integer;
t,j,l,i,k:integer;
n:byte;
begin
Write('n=');Read(n);
Write('k=');Read(k);
for i:=1 to n do
 begin
Write('m[',i,']='); Read(m[i]); 
end;
{ sortuvannya }
for i:=1 to k-1 do
for j:=1 to k-i do
if m[j+1]>m[j] then
begin
t:=m[j];
 m[j]:=m[j+1]; 
m[j+1]:=t;
end; 
WriteLn('Results:  '); 
WriteLn;
for i:=1 to k do 
Write(m[i]:8);
WriteLn;
{ sortuvannya }
for i:=1 to n do
for j:=n-(k-1) to n do
 if m[j+1]<m[j] then
begin
l:=m[j]; 
m[j]:=m[j+1];
 m[j+1]:=l;
end; 
WriteLn('Results:  ');
WriteLn;
for i:=n+1-(k-1) to n+1 do 
Write(m[i]:8);
WriteLn; 
end.

уррррррраааааааааа!!!!!!!!! я решила!!!!!!!!!!
всем кто помог огромное спасибо!!!!!!!