работа с файлами Опции

[leil-lis]

Помогите решить задачу.В двухмерном массиве найти сумму элементов главной и побочной диагонали и найти ср. арифметическое.Размер массива ситать из исходного файла,т.е в исходном файле достаточно только одного числа. результат записать в конечный.немогу понять как считать размер массива из файла.заранее спасибо.

[Client]

uses crt;
var
   f : text;
   n : integer;
   a : array [1..30, 1..30] of integer;
   i : integer;
   j : integer;
begin
   clrscr;
   randomize;
   assign(f, 'D:\text.txt');
   reset(f);
   read(f, n);
   close(f);
   for i := 1 to n do begin
      for j := 1 to n do begin
         a[i,j] := random(100);
         write(a[i,j] : 4 );
      end;
      writeln
   end;
   readkey
end.

заполнение массива

[Lapp]

Client, можешь мне, идиоту, доступно объяснить, зачем тут CRT и clrscr?..