Во входном файле задан двумерный массив и целое число K. Заменить все элементы, меньшие K, этим числом

var
    n, m, i, j: 1..100;
    elem, k: -1000000..1000000;
    f, g: Text;
begin
    Assign(f, 'f.txt'); ReSet(f);
    Assign(g, 'g.txt'); ReWrite(g);
    ReadLn(f, n, m); ReadLn(f, k);
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            Read(f, elem);
            if (elem < k)
            then
                Write(g, ' ', k)
            else
                Write(g, ' ', elem);
        end;
        WriteLn(g);
    end;
    Close(f); Close(g);
end.

Var
     a,b,c: integer;
     f1,f2: text;
begin
    assign(f1,'input.txt');
    assign(f2,'output.txt');
   reset(f1);   
  rewrite(f2);
  readln(f1,a,b);
   c:=a+b;
   write(f2,c);
  close(f1);
  close(f2); end.

var
  n,i,j,m:integer;
  k: longint;
  a:array[1..100,1..100]of longint;
  f1,f2:text;
begin
   assign(f1,'input.txt');
   assign(f2,'output.txt');
   reset(f1);
   rewrite(f2);
{Ввод матрицы из файла}
   readln(f1,n, m);
     readln(f1,k);
   for i:=1 to n do
     for j:=1 to m do read(f1,a[i,j]);
     for i:=1 to n do
     begin 
     for j:=1 to m do
       begin 
       if a[i,j]<k then a[i,j]:=k;
   write(f2, a[i,j]:4);end;
   writeln(f2);
   end;{Вывод результата в файл}
   close(f1);
   close(f2);
 
end.