Вектора,матрицы,массивы и символы.

procedure Task3(var s:string);
var a:integer;
begin
  a:=length(s);
  while s[a]='=' do
    delete(s,length(s),1);
  repeat
    a:=pos('=',s);
    if a<>0 then s[a]:=s[a+1]; {если это соответствует условию задачи}
  until a=0;
end;

Program laba18;
uses
 graph,crt;
type
  PointType = record
    x,y:integer;
  end;
Type
  PGraphobject=^TGraphObject;
  TGraphObject= object
    Active: boolean;
    x,y: integer;
    r,r1: integer;
    Color: integer;
    Constructor Init;
    Destructor Done; virtual;
    Procedure Locate (Nx,Ny: integer);
    Procedure Step(Dr,Dr1:integer);
    Procedure Paint;virtual;
    Procedure Clear;virtual;
  end;
  PPoint=^shar;
  shar=object(TGraphObject)
    Constructor InitData(Nx,Ny,NR,NR1,C: Integer);
    Procedure Paint;virtual;
    Procedure Clear;virtual;
  end;
 
  Constructor TGraphObject.Init;
  begin
    Active:=false;
  end;
 
  Destructor TGraphObject.Done;
  begin
    Clear;
  end;
 
  Procedure TGraphObject.Locate;
  begin
   x:=Nx;
   y:=Ny
  end;
 
  Procedure TGraphObject.Step;
  begin
    clear;
    r:=r+Dr;
    r1:=r1+Dr1;
    Paint;
  end;
 
  Procedure TGraphObject.Clear;
  begin
  end;
 
  Procedure TGraphObject.Paint;
  begin
  end;
 
  Constructor shar.InitData;
  begin
    inherited Init;
    x:=Nx;
    y:=Ny;
    r:=Nr;
    r1:=Nr1;
    Color:=c;
  end;
 
  Procedure Shar.Paint;
  var
  m: array [1..4] of PointType;
  begin
    SetFillStyle(1,color);
    m[1].x:=x;
    m[1].y:=y+r1-(r div 20);
 
    m[2].x:=x-(r div 3);
    m[2].y:=y+r1+15;
 
    m[3].x:=x+(r div 3);
    m[3].y:=y+r1+15;
 
    m[4].x:=x;
    m[4].y:=y+r1-(r div 20);
 
    FillPoly(4,m);
    FillEllipse(x,y,r,r1);
  end;
 
  Procedure Shar.Clear;
  var
  m: array [1..4] of PointType;
  begin
    cleardevice;
    SetFillStyle(0,0);
    FillEllipse(x,y,r,r1);
  end;
 
  procedure InitVideo;
    var
     grDriver,grMode:Integer;
   begin
     grDriver:=Detect;
     InitGraph(grDriver,grMode,'c:\tp7\bgi');
     if GraphResult<>grOk then
     begin
     Writeln('oLLIubka npu UHuL/uaLu3aL/uu gpafuku !');
     readln;
     Halt(1)
     end
   end;
 
    procedure DoneVideo;
    begin
     CloseGraph;
    end;
type
  mPoint = array [1..4] of PointType;
var
  a:PgraphObject;
  i,j:integer;
  tmp,tmpcolor,tmpy:integer;
  m:array [1..10] of mPoint;
begin
  clrscr;
  InitVideo;
  Randomize;
  tmpcolor:=1+Random(12);
  a:=New(PPoint,InitData(Round(GetmaxX div 2),Round(GetMaxY div 2),15,10,tmpcolor));
  for i:=1 to 27 do
  begin
    tmp:=random(10);
    a^.Step(tmp,tmp+Random(5));
    Delay(25000);
  end;
  Dispose(a,Done);
  for i:=1 to 10 do
  begin
    Sound(30+Random(40));
    delay(3000);
    nosound
  end;
  ClearDevice;
  SetColor(tmpcolor);
  SetFillStyle(1,Tmpcolor);
  for j:=1 to 5 do
  begin
    tmp:=GetmaxX div 3+j*20-40;
    if j<3 then
      tmpy:=GetMaxY div 8
    else
      if tmpy<5 then
        tmpy:=GetMaxY div 5
      else
        tmpy:=GetMaxY div 2;
    tmpcolor:=1;
    for i:=1 to 3 do
    begin
      if i=1 then
       tmp:=tmp
      else
        if i=2 then
        begin
          tmp:=tmp -100;
          tmpy:=tmpy+Random(80)+100
        end
        else
          tmp:= tmp+150;
      M[j][i].x:=tmp;
      M[j][i].y:=tmpy+Random(20)
    end;
    m[j][4].x:=m[j][1].x;
    m[j][4].y:=m[j][1].y;
  end;
  cleardevice;
  tmp:=0;
  for i:=1 to 5 do
  begin
    case i of
      2:tmp:=300;
      3:tmp:=0;
      4:tmp:=150;
      5:tmp:=300;
    end;
    for j:=1 to 4 do   {npubaBleHue koopDuHaT Ko Bcem 4-em To4kam ockoLka}
    begin
      m[i][j].x:=m[i][j].x+tmp;
      m[i][j].y:=m[i][j].y+random(10)-random(40)
    end;
    FillPoly(4,m[i])
  end;
  repeat
    cleardevice;
    for i:=1 to 5 do {5-Tb ockolkoB}
    begin
      for j:=1 to 4 do
      begin
        m[i][j].y:=m[i][j].y+random(17);
      end;
    FillPoly(4,m[i]);
    delay(100)
    {readln;}
    end;
  until m[1][1].y>GetMaxY-70;
  cleardevice;
  readln;
  DoneVideo;
end.