Запись в файл значения

program p1;
uses crt;
 
const T=100;S=100;
var mass:array[1..T,1..S] of integer;
    N,M,i,j,MIN,iM,jM,kolmin,kel,sum:integer;
    sar:real;
 
BEGIN
 
clrscr;
textcolor(white);
write('Kolichestvo strok  N = ');
readln(N);
write('Kolichestvo stolbcov M = ');
readln(M);
writeln;
 
 for i:=1 to N do
 
 
    begin
    writeln('Vvedite ', i ,' stroku');
 
 
    for J:=1 to M do
    readln(mass[i,j]);
    end;
 
 MIN:=mass[1,1];   {minimum v danii moment, tekuwii}
 iM:=1;            {stroka i stolbec min elementa}
 jM:=1;
 kolmin:=0;        {kol-vo min elementov}
 
 for i:=1 to N do
  for j:=1 to M do
   if MIN>mass[i,j] then
     begin
       kolmin:=1;
       iM:=i;
       jM:=j;
       MIN:=mass[i,j];
     end
 else
  if MIN=mass[i,j] then kolmin:=kolmin+1;
  if kolmin=1 then writeln('V massive 1 min element MIN[',iM,';',jM,'] = ',MIN)
 
  else
    begin
      writeln('V massive ',kolmin,' minimalnih elementov');
      for i:=iM to n do
      for j:=1  to m do
      if min=mass[i,j] then writeln('MIN[',i,';',j,'] = ', MIN);
  end;
 
  textcolor(lightgreen);
  writeln;
  for i:=1 to n do
  begin
   for j:=1 to m do
    write(mass[i,j]:4);
    writeln;
    end;
 
 
  kel:=0;
  sum:=0;
  for i:=1 to N do
  for j:=1 to M do
    if (mass[i,j] mod 3) = 0 then
      begin
    sum:=sum+mass[i,j];
    kel:=kel+1;
      end;
    if kel<>0 then
      begin
    sar:=sum/kel;
    writeln('Srednee arifmiticheskoe elementov, kratnih 3 - ',sar:5:2);
      end
     else writeln('net elementov, kratnih 3');
 
   readln;
END.