View difference between Paste ID: RAcZBcYr and QvUyB58m

-const n=3;m=4;
+const
-type mas=array[1..n,1..m] of integer;
+  n=3;
-var z,v,g:mas; f2:text;
+  m=4;
 
 type
   mas=array[1..n,1..m] of integer;
 
-assign(f2,'laba6.txt');
+var
-reset(f2);
+  z,v,g:mas;
-for i:=1 to n do
+  f2:text;
 
-for j:=1 to m do
+
-readln(f2,a[i,j]);
+
-readln(f2);
+
   assign(f2,'laba6.txt');
-readln(f2);
+  reset(f2);
-for i:=1 to n do
+  for i:=1 to n do
   begin
-for j:=1 to m do
+    for j:=1 to m do
-readln(f2,b[i,j]);
+      readln(f2,a[i,j]);
-readln(f2);
+    readln(f2);
   end;
   readln(f2);
-readln(f2);
+  for i:=1 to n do
-for i:=1 to n do
+  begin
     for j:=1 to m do
-for j:=1 to m do
+      readln(f2,b[i,j]);
-readln(f2,c[i,j]);
+    readln(f2);
-readln(f2);
+  end;
   readln(f2);
   for i:=1 to n do
   begin
     for j:=1 to m do
-var i,j,ii,jj:integer;
+      readln(f2,c[i,j]);
-f:boolean;
+    readln(f2);
   end;
-f:=false;
+
-ii:=1;
+
-while (ii<=n)and(not f) do
+
 var
-jj:=1;
+  i,j,ii,jj:integer;
-while (jj<=m)and(not f) do
+  f:boolean;
 begin
-i:=1;
+  f:=false;
-while (i<=n) do
+  ii:=1;
   while (ii<=n)and(not f) do
-j:=1;
+  begin
-while (j<=m) do
+    jj:=1;
     while (jj<=m)and(not f) do
-if (x[ii,jj]=x[i,j])and((ii<>i)and(jj<>1)) then f:=true;
+    begin
-inc(j)
+      i:=1;
       while (i<=n) do
-inc(i)
+      begin
         j:=1;
-inc(jj)
+        while (j<=m) do
         begin
-inc(ii)
+          if (x[ii,jj]=x[i,j])and((ii<>i)and(jj<>1)) then f:=true;
           inc(j)
-od:=f
+        end;
         inc(i)
       end;
       inc(jj)
-vv(z,v,g);
+    end;
-append(f2);
+    inc(ii)
-writeln(f2,od(z));
+  end;
   od:=f
-writeln(f2,od(v));
+
 
-writeln(f2,od(g));
+
-close(f2);
+  vv(z,v,g);
   append(f2);
   writeln(f2,od(z));
 
   writeln(f2,od(v));
 
   writeln(f2,od(g));
   close(f2);
 end.