Задачки в Delphi помогите пожалуйста

[777Артём777]

Нужна помощь с двумя задачками под зарез в понедельник сдать надо а я не знаю как их соштопать.
1) Дано натуральное k. Напечатать k-ую цифру последовательности 12345678910111213…, в которой выписаны подряд все натуральные числа.
2) Дана действительная матрица размера nm, в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент.

[Lemo]

Задача № 2 (Точнне ее некоторые черновики)
Вывод матрицы 5 на 5 и поиск, мас и мин значения:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

type
LOL =array[1..5, 1..5] of integer;
var  i,j:integer;
     min,max:real;
const L:LOL=((1,2,3,4,5),(0,0,0,0,0),(7,8,9,4,5),(4,5,9,0,3),(8,5,1,9,0));
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
write (L[i,j]:2, ' ');
end;
writeln;
end;
writeln;


 min:=1; max:=1;
 for i:=1 to 5 do
  for j:=1 to 5 do begin
   if L[i,j]<min then min:=L[i,j];
   if L[i,j]>max then max:=L[i,j];
  end;
  writeln('=*==*=   ENTER  =*==*==*=');
  readln;
 writeln('min = ',min:6:2);

 writeln('max = ',max:6:2);
  readln  ;
end.

[Arigato]

Решение 1-й задачи:

var K, A, B, C, D, I: Word;
begin
  ReadLn (K);
  I := I xor I;
  A := I or $01;
  D := A;
  repeat
    B := A;
    C := D;
    while C <> C xor C do
    begin
      Inc (I);
      if I = K then Write (B div C);
      B := B - (B div C) * C;
      C := C div $0A;
    end; {while}
    Inc (A);
    if A mod (D * $0A) = A xor A then D := D * $0A;
  until I >= K;
  ReadLn;
end.

[Serge_Bliznykov]

ну и я свое решение 1-й задачи кину:

{
Выведите на экран n - ю цифру числа 
1234567891011121314151617181920...999
  (записаны последовательно в порядке возрастания все натуральные
  положительные числа меньше 1000),
  где n - заданное натуральное число.
}
var 
  n,i,m,LenAll : integer;
  s : string;
begin
 Write(' Введите n: ');
 readln(n);

 LenAll := 0;
 i:=0;

 while LenAll<n do begin
   inc(i);
   Str(i:1, s);
   if (LenAll+Length(S))>=n then
   begin
     m := n - LenAll;
     WriteLn(n:1,'-я цифра = ',Copy(S,m,1));
   end;  
   LenAll := LenAll+Length(S);
 end;
 readln;
end.