Вот code небольшой проги для создания матрицы в виде латинского квадрата заданного размера:

program lat_kv;
uses crt;
 var 
  a:array [1..100,1..100] of integer;
  i,j,n,c:integer;
 begin
  clrscr;
  write ('Vvedite razmer ');
  readln(n);
  for i:=1 to n do
  for j:=1 to n do
  begin
   a[i,j]:=i+j-1;
   if a[i,j]>n then a[i,j]:=a[i,j]-n;
  end;
  for i:=1 to n do
  begin
   writeln;
   for j:=1 to n do write(a[i,j],' ');
  end;
  readln;
end.

( кто не знает - латинский квадрат, это матрица, в столбцах и строках которой нет повторяющихся чисел)
Может ли кто-нибудь подсказать, как:
1) Организовать процедуру чтения программой вещественных чисел из файла и создание квадрата из них;
2) сделать рандомайз чисел, из которых будет составляться матрица;

Буду очень признателен,если кто сможет помочь.

Стоп, стоп, стоп....
Нет, простите... Ваше определение оставляет неясность... Вот точное определение латинского квадрата. Читайте внимательно:


Это как понимать? Латинский квадрат из вещественных чисел? Что за глупость?


И Random нельзя применять, т.к. должны использоваться только числа 1 .. n

grannos,
вот Латинские квадраты.

"Организовать процедуру чтения"
FAQ: работа с файлами