Создание файла и запись в него

[4итер]

Вопрос в следующем, появляется ошибка, а убрать ее ни как не могу, помогите справиться с ней. Ошибка Error 106: Invalid numeric format

uses crt;

const
  Line = '-----------------------------------';
  Max_Value = 25;
type
  TMatr = Array[1..Max_Value, 1..Max_Value] of Integer;
var
  Matr: TMatr;
  Res: Real;
  Chr: Char;
procedure ReadFromTxt(var Matr: TMatr);
var
  filech:text;
  i, j: Byte;
  a,a1:integer;
begin
randomize;
  Assign(FileCh, 'C:\File.txt');
  rewrite(FileCh);
  for i:=1 to sqr(Max_Value) do begin
  a:=random(65535)-32767;
  write (FileCh,a);
  end;
  close(FileCh);
  reset(FileCh);
  for i:=1 to Max_Value do
    for j:=1 to Max_Value do  begin
      read(FileCh,a1);
      Matr[i, j]:=a1; end;
  Close(FileCh);
end;

procedure PrintMatrix(Matr: TMatr);
var
  i, j: Byte;
begin
  writeln('Ìàòðèöà: ');
  for i:=1 to Max_Value do
  begin
    for j:=1 to Max_Value do
      write(Matr[i, j]:4);
    writeln;
  end;
end;

[s-andriano]

А что в файле - смотрел?

[ViktorR]

for i:=1 to sqr(Max_Value) do begin
  a:=random(65535)-32767;
  write (FileCh,a);
  end;

А если посмотреть на этот код повнимательнее?
Как правильно отмечено s-andriano, см. файл C:\File.txt.

[4итер]

там нет ничего,

read(FileCh,a1);

на этой строчке ошибку выдает

[Serge_Bliznykov]

4итер, я разве не вам отвечал?!
что либо пишите разделители в текстовый файл (проще всего - каждое число в ОТДЕЛЬНОЙ СТРОКЕ. для этого вместо
write (FileCh,a);
напишите writeln (FileCh,a);
ну и чтение - readln(FileCh, a)

либо сделайте файл ТИПИЗИРОВАННЫМ:

var
  filech: file of integer;

p.s. как вам правильно сказали - посмотрите внутрь своего файла - там же числа все подряд неразделённые записаны,
чтото вроде 123443322323125856722723232782
(а числа были, наприме, 12, 34, 433, 22 и т.д.)
вот прочитать и не получается!