Pascal (матрица, string...)

uses crt;
 
const MAX = 10;
 
var k, row, col : integer;
    a : array[1..MAX, 1..MAX] of Integer;
    m, n : integer;
 
begin
  ClrScr;
  Randomize;
 
  {кол-во строк и столбцов в массиве}
  m := 5;
  n := 5;
  {!ВНИМАНИЕ! но не больше константы MAX}
 
  {забиваем массив случ числами}
  for row := 1 to m do
    for col := 1 to n do
      a[row, col] := Random(100) - Random(50);
 
  Write('k = ');
  ReadLn(k);
  ClrScr;
  {печатаем массив}
  WriteLn('До удаления строки');
  for row := 1 to m do
  begin
    for col := 1 to n do
       Write(a[row, col]:4,' ');
    WriteLn;
  end;
  {удаляем строку}
  for row := k to m-1 do
    for col := 1 to n do
      a[row, col] := a[row+1, col];
  {уменьшаем кол-во строк}
  dec(m);
  {печатаем массив}
  WriteLn('После удаления строки');
  for row := 1 to m do
  begin
    for col := 1 to n do
       Write(a[row, col]:4,' ');
    WriteLn;
  end;
  ReadLn;
end.

var fsrc   : Text;
    fdst   : file of Real;
    buff,s : string;
    r      : Real;
    Code,
    c, i   : Integer;
 
begin
  Assign(fsrc, 'Chisla.Txt');
  Reset(fsrc);
 
  Assign(fdst, 'Chisla.Dat');
  Rewrite(fdst);
 
  c := 0;
  while not eof(fsrc) do
  begin 
    ReadLn(fsrc, buff);
    s := '';
    i := 1;    
    REPEAT
      if (buff[i]=' ') or (i=length(buff)) then
      begin
        Val(s, r, Code);
        if Code=0 then
        begin
          Write(fdst, r);
          inc(c);
        end;
        s:='';
      end
      else
      begin
        s := s + buff[i];
      end;
      Inc(i);
    UNTIL (i > length(buff));
  end;
 
  Close(fdst);
  Close(fsrc);
 
  WriteLn('Было добавлено ',c,' чисел.');
  
  ReadLn;
end.

var s, t, last : string;
    min_len,
    len, i     : integer;
 
begin
  s       := 'Это просто предложение чтобы проверить эту программу,';
  s       := s + ' можете заменить его на любое другое.';
  min_len := 1000;
  len     := length(s);
  i       := 1;
 
  WriteLn('В этом предложении мы будем имкать "', s ,'".');
 
  while (i<len) and (i<>len-1) and (s[i]<>'.') do
  begin
    {обрабатываем пробелы и прочую фигню}
    while (s[i]=' ') or (s[i]=',') do Inc(i);
 
    {мы нашли слово}
    t := '';
    while (s[i]<>' ') and (s[i]<>',') and (s[i]<>'.') and (i<=len) do
    begin
      t := t + s[i];
      Inc(i);
    end;
 
    if min_len > length(t) then
    begin
      min_len := length(t);
      last    := t;      
    end;
  end;
 
  WriteLn('Самое короткое слово "', last ,'".');  
  ReadLn;
end.

var fsrc   : Text;
    fdst   : file of Real;
    buff,s : string;
    r      : Real;
    Code,
    c, i   : Integer;
 
begin
  Assign(fsrc, 'Chisla.Txt');
  Reset(fsrc);
 
  Assign(fdst, 'Chisla.Dat');
  Rewrite(fdst);
 
  c := 0;
  while not eof(fsrc) do
  begin
    ReadLn(fsrc, buff);
    s := '';
    i := 0;
    REPEAT
      Inc(i);
      if (buff[i]=' ') or (i>length(buff)) then
      begin
    Val(s, r, Code);
        if (Code=0) and (frac(r)<>0) then
        begin
          Write(fdst, r);
          inc(c);
        end;
        s:='';
      end
      else
      begin
        s := s + buff[i];
      end;
 
    UNTIL (i > length(buff));
  end;
 
  Close(fdst);
  Close(fsrc);
 
  WriteLn('Было добавлено ',c,' чисел.');
  
  ReadLn;
end.

if min_len > length(t) then

if min_len >= length(t) then

const MAXCOUNT = 30; {максимальная размерность матрицы}
type
  {прямоугольная матрица}
  Matrix = array [1..MAXCOUNT, 1..MAXCOUNT] of real;
 
var a, b, c : MATRIX;
    b_col, b_row,
    a_col, a_row : integer;
    f  : text;
 
 
procedure SaveMatrix(fn : string; m : Matrix; rows, cols : integer);
var f   : text;
    i,j : integer;
begin
  Assign(f, fn);
  Rewrite(f);
 
  for i := 1 to rows do
  begin
    for j := 1 to cols do
       Write(f, m[i, j]:2:2,' ');
    Write(f, Chr(13), chr(10));
  end;
 
  Close(f);
end;
 
 
procedure ReadMatrix(fn : string; var m : Matrix; var row : integer; var col : integer);
var fsrc   : Text;
    buff,s : string;
    r      : Real;
    Code,i : Integer;
 
begin
  Assign(fsrc, fn);
  Reset(fsrc);
 
  row := 0;
  while not eof(fsrc) do
  begin
    inc(row);
    ReadLn(fsrc, buff);
    s   := '';
    i   := 0;
    col := 0;
    REPEAT
      Inc(i);
      if (buff[i]=' ') or (i>length(buff)) then
      begin
    Val(s, r, Code);
        if (Code=0) then
        begin
          inc(col);
          m[row, col] := r;
        end;
        s:='';
      end
      else
      begin
        s := s + buff[i];
      end;
    UNTIL (i > length(buff));
  end;
 
  Close(fsrc);
end;
 
procedure MulOfMatrix(m1, m2: Matrix; var res: Matrix; n, m: integer);
var
  i, j, k: integer;
begin
  for i:=1 to m do
  for j:=1 to m do begin
  res[i,j]:=0;
  for k:=1 to n do
  res[i,j] := m1[i,k]*m2[k,j];
  end;
end;
 
begin
  ReadMatrix('SA', a, a_row, a_col);
  ReadMatrix('SB', b, b_row, b_col);
 
  if (a_row = b_col) and (a_col = b_row) then
  begin
    MulOfMatrix(a, b, c, a_row, a_col);
    SaveMatrix('SC', c, a_row, a_col);
  end
  else
  begin
    WriteLn('[ОШИБКА] : данные матрицы перемножать нельзя.');
    Assign(f, 'SC');
    Rewrite(f);
    Close(f);
  end;
 
  ReadLn;
end.

uses crt;
const nmax=20;{макс размер матрицы}
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j,k:byte;{размеры, счетчики}
    x:integer;{буфер для обмена}
begin
clrscr;
randomize;
repeat
write('Количество строк=');
readln(m);
until m in [1..nmax];{проверяем правильность ввода, если от 1 до 20 то нормально}
repeat
write('Количество столбцов=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(20);
     write(a[i,j]:4);
    end;
   writeln;
  end;
for i:=1 to m-1 do{сортируем первый столбец матрицы}
for j:=i+1 to m do
if a[i,1]>a[j,1] then{по возрастанию}
for k:=1 to n do{параллельно с ним переставляем элементы в других столбцах}
 begin
  x:=a[i,k];
  a[i,k]:=a[j,k];
  a[j,k]:=x;
 end;
writeln('Результат перестановки:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

program matrica;
uses crt;
const nmax=20;
var n,i,j,l,min:integer;
    a:array[1..nmax,1..nmax]of integer;
begin
clrscr;
randomize;
repeat
write('Razmer matricy n=');
readln(n);
until n in [1..nmax];
Writeln('Ishodnaja matrica:');
for i:=1 to n do
   begin
     for j:=1 to n do
         begin
           a[i,j]:=random(10);
           write(a[i,j]:3);
         end;
      writeln;
   end;
for l:=2*n-1 downto 1 do{количество диагоналей, включая главную, идем с конца}
  begin
    min:=maxint;{за минимум берем самое большое число типа integer}
    if l<=n then{выше главной и на ней, от [1,n]->[1,n] до [1,1]->[n,n]}
      begin
       for i:=n-l+1 to n do
       for j:=1 to l do
       if (j=i-n+l)and(a[i,j]<min) then min:=a[i,j];{если на этой диагонали и меньше всех}
      end
    else if l>n then{ниже главнойот [2,1]->[n,n-1] до [n,1]->[n,1]}
      begin
       for i:=1 to 2*n-l do
       for j:=l-n+1 to n do
       if (j=i+l-n)and(a[i,j]<min) then min:=a[i,j];
      end;
    writeln('Min na dyagonali ',l,' = ',min);
  end;
readln
end.

min:=a[n-l+1,1]

[B]Puporev[/B], а нельзя ли сделать так