Найти в каждой строке массива максимальный и минимальный элементы и поменять их с первым и последним элементом соответственно.

uses crt;
var     w,q,q1,w1,c,i,j,min,max,sum,sr1,n,m: integer;
        sr:real;
        a: array[1..10,1..10] of integer;
begin
randomize;
min:=0;
max:=0; sum:=1;
writeln('vvedite razmer matrici(n m)'); readln(n,m);
for i:=1 to N do begin
    for j:=1 to m do begin
        a[i,j]:=random(30)-15;
        write(a[i,j]:3);
        if A[i,j]<min then
                begin
                min:=A[i,j]; q:=i; q1:=j
                end;
        if A[i,j]>max then
                begin
                max:=A[i,j]; w:=i;   w1:=j;
                end;
        end;writeln;
        c:= a[w,w1];
        a[w,w1]:=a[i,1];
        a[i,1]:=c;
        c:= a[q,q1];
        a[q,q1]:=a[i,m];
        a[i,m]:=c;
        min:=0;
        max:=0;
       if (a[i,j] mod 7) =0 then sum:=sum*a[i,j];
        end; writeln;
for I:=1 to n do begin
    for j:=1 to m do
        write(a[i,j]:3);
       writeln;
    end;
writeln('произведение кратных 7 = ',sum);
sr:=0;
sr1:=1;
for i:=1 to N do
    for j:=1 to m do
         if (i mod 2=0) and (j mod 2=0) and(a[i,j] mod 2<>0) then begin
                   sr:=sr+a[i,j];
                   inc(sr1);
                   end;
writeln('Сред знач = ',sr/sr1:0:4);
end.