belo4ka :D

1-----
program Project1;
const col = 5;
      row = 5;


var a: array [1..col,1..row] of integer;
var i, j, iMin, jMin, iMax, jMax:integer; // min - max минимум и максимум соотв. столбца\строки
begin
randomize;
for i:=1 to col do
    for j:=1 to row do
        a[i,j]:= random(10); // заполнение матрицы. Заполняется случайными числами от 0 до 10

iMin := 1;
iMax := 1;
jMin := 1;
jMax := 2;

for i:=1 to col do
    for j:=1 to row do
        begin
          if a[iMin,jMin] > a[i,j] then
             begin
               iMin:= i;
               jMin:= j;
             end;
          if a[iMax,jMax] < a[i,j] then
             begin
               iMax:= i;
               jMax:= j;
             end;
        end;

writeln();
for i:=1 to col do          // вывод матрицы
    begin
      for j:=1 to row do
        write(a[i,j], ' ');
      writeln();
    end;

writeln();
writeln('Minimal:', a[iMin,jMin], ' Maximum: ', a[iMax, jMax]);
writeln();
writeln('Minimal row and minimal col:');
for i:=1 to row do write(a[iMin, i],' ');
writeln();
for i:=1 to col do write(a[i, jMin],' ');
writeln();
writeln('Maximum row and maximum col:');
for i:=1 to row do write(a[iMax, i],' ');
writeln();
for i:=1 to col do write(a[i, jMax],' ');

readln();
end.


//--------------------------------
2.
program Project2;
const
  SIZEMAX = 10;

type WordArray  = array[1..SIZEMAX] of string;


function test(a,b:string):byte; // возвращает 1 если строка a < b
var i,tmp:integer;
label endTest;
begin
result:= 0;
if a=b then goto endTest;

i:=1;
while (ord(a[i]) = ord (b[i])) do    // орд - берет код символа из таблицы ASCII. по нему и сраниваем
inc(i); // i:= i+1;

if (ord(a[i]) < ord (b[i])) then result:= 1;


endTest:
end;


procedure sort(var a:WordArray);
var i, j : integer;
    tmp : string;
begin
for i:= 1 to SIZEMAX do
    for j:= 2 to SIZEMAX do
        begin
          if test(a[j-1], a[j]) = 1 then  // тест - ф-ция сравнения двух слов.
             begin
               tmp:= a[j-1];          // сортировка пузырьком.
               a[j-1]:= a[j];
               a[j]:= tmp;
             end;
        end;

end;

var a: WordArray;
    i: integer;

begin
writeln('Input ',SIZEMAX,' words');
for i:=1 to SIZEMAX do readln(a[i]);  // вводим слова через энтер. Регистр имеет значение. Его лучше не использовать ;](большие буквы то есть)

sort(a);    // вызов процедуры сортировки строк по убыванию

writeln();
writeln('Sorted Array of strings:');
for i:=1 to SIZEMAX do write(a[i],' ');

readln();
end.