ПОДПРОГРАММЫ!

[Linker88]

С массивами закончил!Теперь это не понятно!

1.Составить процедуру,рисующую смайлик в произвольном месте экрана.Нарисовать 5 смайликов на экране.
2.Сделать предыдущую процедуру с параметрами:точкой расположения смайлика на экране,его цвет и вид смайлика(улыбчивый или растроенный).Нарисовать на экране 15 разных смайликов.
3.Составить процедуру,сортирующую указанный массив по возрастанию методом пузырька.Программа
должна вывести самый большой из 3-х минимальных элементов.(т.е. 3-й по счету
элемент в отсортированном массиве,если нет совпадений с первыми двумя элементами).

вроде по блок схеме сходиться то,но он выдаёт ошибку типа...не могу понять в чём дело(это 1 программа)...
Вторую вообще не знаю как делать и третью тоже!

[Hollander]

Пиши подробнее об ошибках и конкретно в чем загвоздка

[Linker88]

Та там с графикой надо промутить!а я не шарю=(

[Linker88]

НАРОД ПОМОГИТЕ СДЕЛАТЬ...ОЧЕНЬ НУЖНО!Я НЕ ЗНАЮ,ЧТО Я СДЕЛАЮ ВАМ!

[spamer]

3).
Вот тебе метод пузырька :

procedure SortPuz (var Arr : array of Integer; n : Integer);
var
  i : Integer; 
  Temp : Integer; 
  Flag : Boolean; 
begin
  repeat
    Flag := False;
    for i := 0 to n - 1 do
      if Arr[i] < Arr[i + 1] then begin 
        Temp := Arr[i]; 
        Arr[i] := Arr[i + 1];
        Arr[i + 1] := Temp; 
        Flag := True; 
      end; 
  until Flag = False; 
end;

//И выведи третий элемент массива(как я понял из условия):
writeln('Третий элемент равен', mas[3]);