Один из основателей организации по защите прав граждан Сети в 1996 году в ответ на принятие в США
«Телекоммуникационного акта», опубликовал «Декларацию Независимости Кибер Расшифруй его фамилию по следующему алгоритму:

в названии морского животного из семейства раковых оставь три буквы с
и прочитай их наоборот;

напиши русскими буквами английское слово low (низко) и ты получишь вторую часть фамилии:
1) Барлоу;
2) Краблей;
3) Карлос;
4) Лоубарк

2 в.н.э - Изобретение технологии изготовления бумаги в Китае
Середина 15 в. - Начало книгопечатания в Европе
2-1 тысячелетия до н.э - Появление алфавитного письма в Финикии
80- гг. 20 в. - Появление первых лазерных дисков
5-15 тысячелетия до н.э - Первые следы иероглифического письма в Древнем Египте
Середина 16 в - Начало книгопечатания в Росии
60-е гг. 20 в. - Появление первых жестких дисков для компьютеров
1895 г - Демонстрация первого кинофильма
70-е гг 19 в -  Первая запись звука с фонографа
20-е гг 20 в - Изобретение магнитофона
1839 г. - Изобретение фотографии

Смотри на скриншот я сделал просто не хочу чтоб форматировка текста портилась.Все работает!
const n=3;m=4;
var a:array [1..n,1..m] of integer;    i,j,k,max:Integer;    ind:array [0..1] of Integer=(1,1);
begin 
Randomize; 
 for i:=Low(a) to High(a) do 
 for j:=Low(a) to High(a[1]) do 
   a[i,j]:=Random(100); 
for i:=Low(a) to High(a) do 
  begin   
  writeln;   
for j:=Low(a) to High(a[1]) do 
 write(a[i,j]:3); 
 end; 
 max:=a[1,1]; 
 for i:=Low(a) to High(a) do   
for j:=Low(a) to High(a[1]) do
    if a[i,j]> max then   
  begin 
     max:=a[i,j];   
    ind[0]:=i;     
  ind[1]:=j;     
end;     
writeln; 
Writeln(' Max element: ',max);
 Write(' Index: '); 
 for i:=0 to 1 do 
 write(ind[i],' ');
 Readln;
end.