delphi. указатели.

[grustniy]

Задание звучит так:
Дан массив, состоящий из символов. Вывести на экран цифру, наиболее часто встречающуюся в этом массиве.
Исходный код:

unit Unit1;


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;

type
    TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const N=7;

  Type
    Mas1=array[1..1] of integer;
    Mas2=^Mas1;
    Mas3=array[1..1] of Integer;
    Mas4=^Mas3;

var
  Form1: TForm1;
  a:Mas2;
  b:Mas4;
  i,j,m:Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var

begin
  New(b);
  Memo1.Clear;
  Randomize;
  for i:=1 to N do
    begin
      //StringGrid1.Cells[i-1,0]:=IntToStr(Random(256));
      repeat
      b:= random(256);
      until(b > 48);
      StringGrid1.Cells[i-1,0]:=chr(b); //IntToStr(xz);

    end;
  Dispose(b);
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  New(a);
  for i:=1 to N do
       a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
  for i:=1 to N do

  Dispose(a);

end;

end.

Ошибки при компеляции:
[Error] Unit1.pas(46): Identifier expected but 'BEGIN' found
[Warning] Unit1.pas(50): For loop control variable must be simple local variable
[Error] Unit1.pas(54): Incompatible types: 'Integer' and 'Mas4'
[Error] Unit1.pas(55): Operator not applicable to this operand type
[Error] Unit1.pas(56): Incompatible types
[Warning] Unit1.pas(67): For loop control variable must be simple local variable
[Warning] Unit1.pas(69): For loop control variable must be simple local variable
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
___________________________________ ___________________________________

Помогите бедному студенту, в чем может быть проблема?

[ImmortalAlexSan]

Вот как правильно работать с указателями:

Type
  TMas=array [0..9] of integer;
  PMas=^TMas;

//общая переменная
var
  Mas:PMas;

procedure TForm1.Button1Click(Sender: TObject);
Var
  i:integer;
begin
  Randomize;
  New(Mas); //или это GetMem(Mas,SizeOf(TMas));
  For i:=0 to 9 do
  begin
    Mas^[i]:=RandomRange(0,10);
    StringGrid1.Cells[i,0]:=inttostr(Mas^[i]);
  end;
  Dispose(Mas); //или FreeMem(Mas,sizeof(TMas));
end;

А вот вы уже написали поиск цифры? Именно цифры, не числа?