Дождь из символов с рамкой

uses crt; 
var a,i,j : integer;
type 
a :array [1..3,1..3] of integer;
BEGIN
textbackground(0);
clrscr; 
for i:=2 to 22 do
 begin 
   gotoxy(1,i);
   writeln('!');
 end;
for i:=2 to 22 do
 begin 
   gotoxy(2,i);
   writeln('!');
 end;
for i:=1 to 79 do
 begin 
   gotoxy(i,1);
   writeln('!');
 end;
for j:=1 to 22 do
 begin 
   gotoxy(79,j);
   writeln('!');
 end;
for j:=1 to 22 do
 begin 
   gotoxy(80,j);
   writeln('!');
 end;
for j:=1 to 22 do
 begin 
   gotoxy(79,j);
   writeln('!');
 end;
for j:=1 to 79 do
 begin 
   gotoxy(j,22);
   writeln('!');
 end;
window (3,2,75,20);
for i:=1 to 70 do
   for j:=2 to 30 do
       begin
          Randomize;       
          GoToXY (i,j);
          a[i,j]:=random(70);
          writeln ('!',(chr a[i,j]):=random(10));
          delay (200);
          clrscr;        
       end;
writeln ('Программа завершена');
END.

uses
  crt;
 
const
  size = 79;
 
var
  i: integer;
  y: integer;
  key: char;
 
procedure frame;
var
  i, j: integer;
  size: integer;
 
begin
  size := 79;
  gotoxy(1, 1);
  for i := 1 to size do
    write('!');
  writeln;
  for i := 1 to 20 do
  begin
    write('!!');
    for j := 1 to size - 4 do
      write(' ');
    writeln('!!');
  end;
  for i := 1 to size do
    write('!');
end;
 
begin
  textbackground(0);
  frame;//рисуем рамку,код написан выше в прцедуре frame
  repeat
    for y := 2 to 20 do
    begin
      gotoxy(3, y);
      for i := 1 to size - 4 do 
        write(':');
      delay(100); 
      if y = 20 then
        frame;
    end;
    if KeyPressed then key := ReadKey;
  until key = #27;//ESC
  writeln('Программа завершена');
end.