Как сделать 4 задание в программе open office?

outtextxy(15,180,'„ўЁ¦Ґ­ЁҐ ⥫ ,Ўа®иҐ­­®Ј® Ј®аЁ§®­в «м­® б ­ з «м- ');outtextxy(110,210,'­®© бЄ®а®бвмо Ї® гЈ«®¬ Є Ј®аЁ§®­вг');

a, b, c: integer;
d: array [1..10] of integer;
begin
for b := 1 to 10 do
begin
write('Bведите число ', b, ' ');
d[b] := random(100) + 100;
writeln(d[b]:4);
end;
b := d[1];
c := 1;
for b := 2 to 10 do
begin
if d[b]>a then
begin
a := d[b];
c := b;
end;
end;
write('Самое большое число под номером ', c, ' это число ', a);
end.

пришлите решение задач!..Даю хорошие баллы за это задание.Всем большое спасибо!

превышающих заданного натурального числа N?

Вообще с Паскалем у меня полный завал! Если знаете как, то напишите! Желательно с объяснениями, буду благодарна!