Сделайте табличку в Excel и отправьте ее

Я хотел через процедуру сделать, чтобы ты могла ей пользоваться и дальше... Но не удалось:( Впрочем, вторая программа, в прикреплении, работает, проверил:з
А это первая:)
var a: array [0..9] of integer;
    i, j, temp: integer;
begin
     for i := 2 to 8 do
     begin
          a[i] := random(11) - 5;
          writeln('[', i, '] => ', a[i]);
     end;
     a[0] := 0;
     a[1] := 0;
     a[9] := 0;
     writeln();
     for i := 0 to 9 do
         for j := 0 to 8 do
             if (a[j] = 0) then
             begin
          temp := a[j];
                a[j] := a[j + 1];
          a[j + 1] := temp;
             end;
     for i := 0 to 9 do writeln('[', i, '] => ', a[i]);
end.

Program spos;
uses crt;
var
numb:array [1..100] of byte; // для последовательности чисел
i,f:integer; //счетчик и переменная в качестве флага
begin
randomize;
f:=0;
for i:=1 to 100 do numb[i]:=random(101);// задает последовательность

for i:=1 to 100 do
begin
write(',',numb[i]); // вывод на экран последовательность(можно удалить)
if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0
end;
if f=0 then writeln('Yes') else writeln('No');

end.

program spos;
uses crt;
var
numb:array [1..100] of byte; // для последовательности чисел
i,f:integer; //счетчик и переменная в качестве флага
begin
randomize;
f:=0;
for i:=1 to 100 do begin
numb[i]:=random(101);// задает последовательность
write(' ',numb[i]);//вывод на экран, можно удалить
end;
writeln;
i:=0;
repeat
i:=i+1;
if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0
until i<100;
if f=0 then writeln('Yes') else writeln('No');

end.