Вывести строку, которая встречается более 1-го раза в файле pascal.abcалимвладимирванякирилалександрваня

//с вами были глеб(gleb1kosyrev) и юлия(nobunaga) косыревы var ma: array[1..3,1..4] of integer; max,i,j,k,maxi: integer; begin; max: =0; randomize; writeln('matrix: '); for i: =1 to 3 do   begin;   writeln;     for j: =1 to 4 do     begin;       ma[i,j]: =random(10);       write(ma[i,j]: 4);       k: =k+ma[i,j];     end;     if k> max then     begin;     max: =k;     maxi: =i;     end;     k: =0;   end; writeln; writeln('result: ',maxi); end.      

Заведём ещё один массив и будем в него записывать, правда ли, что в массиве есть элементы, равные данному, и текущий элемент - первый из них. затем выведем все элементы, для которых это оказалось правдой. pascal var   i, j, n: integer;   flag: boolean;   a: array[1..10000] of integer;   b: array[1..10000] of boolean; begin   read(n);   for i : = 1 to n do   begin     read(a[i]);     b[i] : = true;   end;   b[n] : = false;   for i : = 1 to n - 1 do     if b[i] then     begin       flag : = true;       for j : = i + 1 to n do         if a[i] = a[j] then         begin           flag : = false;           b[j] : = false;         end;         if flag then           b[i] : = false;     end;   for i : = 1 to n do     if b[i] then       write(a[i], ' '); end.