Задание #4 Сделать на паскале.

щелкните на рабочем столе правой кнопкой мыши. Появится всплывающее меню. Выберите пункт Создать. Появится новое меню. Выберите пункт Ярлык. Появится диалоговое окно создания ярлыка,щелкните на кнопке ОБЗОР. В появившемся окошке разыщите программу Калькулятор. Дважды щелкните на значке Калькулятор, расположенном слева от имени программы. Щелкните на кнопке ДАЛЕЕ. Наберите слово Калькулятор в поле «имя». Щелкните на кнопке ГОТОВО.
в окне программы Проводник установите указатель на нужном файле и перетащите его на рабочий стол, нажав правую кнопку мыши. В появившемся меню выберите пункт Создать ярлыки. 

Const
n=10;var
a:array[1..n]of integer;
i,max1,max2,im1,im2:integer;
       begin    for i:=1 to n do         
          begin           
              a[i]:=random(21)-10;             
              write(a[i]:4);         
           end;
max1:=a[1];im1:=1;
          for i:=1 to n do       
               if a[i]>max1 then           
                    begin               
                            max1:=a[i];               
                            im1:=i;           
                    end;
           for i:=1 to n do   
               if (a[i]<=max1)and(i<>im1)and(a[i]>max2)then         
                      begin             
                          max2:=a[i];           
                          im2:=i;         
                     end;
writeln;
writeln('i: ',im1,'  max1: ', max1,'  i: ',im2,'  max2:  ',max2);
end.