Положительные элементы матрицы А умножить на k, а отрицательные - увеличить на b

for i:=1 to n do
 for j:=1 to m do
  if a[i,j]>0 then 
   a[i,j]:=a[i,j]*k
  else
   if a[i,j]<0 then
    a[i,j]:=a[i,j]+b;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,  Math;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const
  n=5;
  m=6;
var
  Form1: TForm1;
  k,b:integer;
  a:array[1..n,1..m] of integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
  s:string;
begin
  randomize;
  k:=StrToInt(Edit1.text);
  b:=StrToInt(Edit2.text);
  memo1.Clear;
  memo1.Lines.Add('Изначальный массив:');
  for i:=1 to n do
    begin
      s:='';
      for j:=1 to m do
        begin
          a[i,j]:=randomrange(-10,10);
          s:=s+IntToStr(a[i,j])+' ';
        end;
      memo1.Lines.Add(s);
    end;
 
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]>0 then
        a[i,j]:=a[i,j]*k
      else
        if a[i,j]<0 then
          a[i,j]:=a[i,j]+b;
 
  memo1.Lines.Add('Измененный массив:');
  for i:=1 to n do
    begin
      s:='';
      for j:=1 to m do
        s:=s+IntToStr(a[i,j])+' ';
      memo1.Lines.Add(s);
    end;
end;
 
begin
end.