Написать программки на паскале- эти 2 задания

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программка не работает, обновите версию!

1

function НОД(a,b:integer):integer;
begin
  while blt;gt;0 do begin a:=a mod b; Swap(a,b) end;
  Result:=a
end;

function НОК(a,b:integer):=a*b/НОД(a,b);

begin
  var (a,b):=ReadInteger2('Введите два естественных числа;');
  Writeln('НОК = ',НОК(a,b))
end.

Пример
Введите два естественных числа; 32 48
НОК = 96

2

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Начальный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var k:=ReadInteger('Введите делитель для замены:');
  a.Transform(t-gt;t mod k=0 ? t div k : t);
  Writeln('*** Полученный массив ***'); a.Println(4);
end.