Ошибка в коде Сортировщика! Ргается! помогите исправить!

[sting]

Делал по книжки сортировщик:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    Button2: TButton;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  N,I:Integer;
  M: array of integer; {Описание динамического массива целых чисел}

implementation

{$R *.dfm}


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then Key:=#0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
N:=StrToInt(Edit1.Text);     {Число элементов массива}
SetLength(M,N);{Задать динамическому масиву М длину N}
Edit2.Text:='';
for I:=0 to N-1 do   {Заполнить массив случайными числами}
 Begin
 M[I]:=Round (Sin(Random(100))*100);
   {присвоить элементу массива случайное значение}
   Edit2.Text:=Edit2.Text+'  '+IntToStr(M[I]);
       {вывести элементы массива}
       end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
J, Tmp: integer;
begin

Edit3.Text:= ' ';
for I:= 0 to N - 2 do {изменять размер неотсортированной части массива} 
for J:=I+1 to N-1 do {сравниваем поочередно I-й элемент неотсортированной части массива со всеми от I+1-го до конца}
begin	{выбор операции в зависимости от значения свойства RadioGroup1.ItemIndex} 
if (RadioGroup1.ItemIndex=0) and (M[I]<M[J])
or (RadioGroup1.ItemIndex=1) and (M[I]>M[J]) then
{если в неотсортированной части массива нашли J-й элемент, больший чем I-й (для сортировки по невозрастанию) или меньший чем 1-й(для сортировки по неубыванию)}
begin	{обменять местами элементы массива}
Тmp:= М[I];    {запомнить на время значение М[I]}
M[I]:= M[J];
M[J]:= Tmp;
end;
end; 
for I:=0 to N-l do        {вывести отсортированный массив}
Edit3.Text:=Edit3.Text+'  '+IntToStr(M[I]); 


end.

он мне ругаеться на вот эту строчку

Тmp:= М[I];

[Error] Unit1.pas(73): Illegal character in input file: 'Т' ($D2)

памагите плиз!

спасибо

[sting]

пасибо всё помогли!

там М не анг была а русская!

[mihali4]

Я так думаю - такое возможно только в том случае, если на Button2 кликнуть, не проинициализировав массив M[i] путем Button1Click...