Никак не могу решить задачу на Паскаль. Даже нету мыслей какие действия нужны. (См. внутри)

[KotyaraYa]

В течение 12 часов абонент набирает номер телефона (один набор в час). Установление связи отмечается цифрой 1, отказ - цифрой 0. Определить: а) число наборов до первого отказа, б) максимальное число успешных наборов между двумя любыми отказами.

[Aranea tela telam]

Вот бери

Program pr1;
var a:array[1..12]of integer;
i,b,c,d,d1,d2:integer;
begin
b:=0;
c:=0;
d:=0;
d1:=0;
d2:=0;
Randomize;
for i:=1 to 12 do
begin
a[i]:=-1+Random(2);
if a[i]=0 then 
begin
inc(b);
if d2<d1 then 
d2:=d1;
d1:=0;
end
else
begin
inc(c); 
inc(d1)
end;
end;
i:=1;
while a[i]=0 do
begin
inc(d);
inc(i); 
end;
Writeln('Не дозванился ',b);
Writeln('Дозванился ',c);
Writeln('число наборов до первого отказа ',d);
Writeln('успешных наборов между двумя любыми отказами ',d2);
end.

[Mad_Cat]

a[i]:=-1+Random(2);  // ни одного Установления связи

меняйте на

 a[i]:=Random(2);