Знающие люди по pascal, мне написать код для одной . заранее ! нужно,

const m = 1000

var

   arr: array[1..m] of integer;

   n,i, j, k: integer;

begin

   readln(n);

   write ('Исходный массив: ');

   for i := 1 to n do begin

       readln(arr[i]);

   end;

//сортировка методом пузырька   

   for i := 1 to n-1 do

       for j := 1 to n-i do

           if arr[j] > arr[j+1] then begin

               k := arr[j];

               arr[j] := arr[j+1];

               arr[j+1] := k

           end;

   write ('Отсортированный массив: ');

   for i := 1 to n do

  write (arr[i]:4);

end.

Объяснение: