Дан массив размера N. Вывести все двузначные элементы массива и их номера. ПОМОГИТЕ pascal ХЕЛП

Напишу, пожалуй, при помощи графического модуля (там есть же вывод текста и пр.). Только если Turbo Pascal - там надо инициировать графику, а если а-ля Pascal ABC, то тут проще. Напишу оба варианта:

1) Pascal ABC:

Program Massiv;
uses graphabc;
begin
line (20,50,35,35); line (25,35,25,15);
line (25,15,45,15); line (25,35,45,35);
line (45,50,45,15); line (65,15,85,15);
line (65,50,85,50); line (65,50,65,15);
line (95,50,95,15); line (115,50,115,15);
line (95,15,115,15); line (125,50,125,15);
line (145,50,145,15); line (125,50,145,15);
line (155,15,175,15); line (155,50,175,50);
line (155,50,155,15); line (185,50,185,15);
line (185,50,205,50); line (185,35,205,35);
line (205,50,205,35); line (215,50,215,15);
line (225,50,225,15); line (225,15,243,15);
line (225,50,245,50); line (225,33,245,33);
line (243,15,243,33); line (245,50,245,33);
line (255,50,265,15); line (265,15,275,50);
line (260,33,270,33); line (285,50,285,15);
line (285,33,305,33); line (305,50,305,15);
line (325,50,325,15); line (305,15,325,15);
line (305,50,325,50); line (20,115,20,75);
line (40,115,40,75); line (20,115,40,75);
line (65,115,85,75); line (65,75,85,115);
line (95,115,105,75); line (105,75,115,115);
line (100,100,110,100); line (125,115,125,75);
line (145,115,145,75); line (125,75,135,115);
line (135,115,145,75); line (155,115,165,75);
line (165,75,175,115); line (185,115,185,75);
line (185,95,205,95); line (205,115,205,75);
line (225,115,225,75); line (205,75,225,75);
line (205,115,225,115);
textout (20,125,'2-значные элементы массива:');
textout (20,135,'Их номера:');
end.

2) Turbo Pascal:

Program Massiv;
uses graph;
Var D, m : integer ;
begin
D := detect ;
InitGraph ( d, m , 'здесь нужно указать путь к драйверу EGAVGA . BGI ' }
line (20,50,35,35); line (25,35,25,15);
line (25,15,45,15); line (25,35,45,35);
line (45,50,45,15); line (65,15,85,15);
line (65,50,85,50); line (65,50,65,15);
line (95,50,95,15); line (115,50,115,15);
line (95,15,115,15); line (125,50,125,15);
line (145,50,145,15); line (125,50,145,15);
line (155,15,175,15); line (155,50,175,50);
line (155,50,155,15); line (185,50,185,15);
line (185,50,205,50); line (185,35,205,35);
line (205,50,205,35); line (215,50,215,15);
line (225,50,225,15); line (225,15,243,15);
line (225,50,245,50); line (225,33,245,33);
line (243,15,243,33); line (245,50,245,33);
line (255,50,265,15); line (265,15,275,50);
line (260,33,270,33); line (285,50,285,15);
line (285,33,305,33); line (305,50,305,15);
line (325,50,325,15); line (305,15,325,15);
line (305,50,325,50); line (20,115,20,75);
line (40,115,40,75); line (20,115,40,75);
line (65,115,85,75); line (65,75,85,115);
line (95,115,105,75); line (105,75,115,115);
line (100,100,110,100); line (125,115,125,75);
line (145,115,145,75); line (125,75,135,115);
line (135,115,145,75); line (155,115,165,75);
line (165,75,175,115); line (185,115,185,75);
line (185,95,205,95); line (205,115,205,75);
line (225,115,225,75); line (205,75,225,75);
line (205,115,225,115);
textout (20,125,'2-значные элементы массива:');
textout (20,135,'Их номера:');
end.

for i:=1 to n do
if (a[i]>9) and (a[i]<100) writeln(i:3,a[i]);

А почему ты забанил хороший ответ (пусть с оговоркой)? Тебе помогли. Хочешь всю программу полностью - договаривайся, за спасибо никто тебе писать не станет. Не хочешь - ищи готовое сам, а еще лучше сядь да сам сделай.