Unnamed

program searchmin;
uses crt;
var
  d : array[1..1000] of integer;
  i,j,n,r,k:integer;
  wmin: array[1..1000] of integer;
begin
writeln('ile elementow ma miec zbior?');
readln(n);
writeln('ile najmniejszych pokazac');
readln(r);
if r>n then
        begin
        writeln('r musi byc mniejsze od n');
        end
else;
begin
        for i:=1 to n do
        begin
        writeln('podaj elementy');
	readln(d[i]);
        end;



for j:=1 to r do
begin
wmin[j] := d[1];
      for i := 2 to n do
        begin
          if (wmin[j] > d[i]) then
             begin
                 wmin[j]:=d[i];
                 k:=i;
           end;
        end;

        d[i]:=d[n];
             n:=n-1;
end;

for j:=1 to r do
        begin
        writeln('najmniejsze:');
        writeln(j,'.',wmin[j]);
        end;
end;
readln;