Дан массив символьных строк. Найдите строку, в которой наибольшее количество знаков арифметических операций: + - * / и вывести на экран все строки , кроме нее. Если таких строк несколько,то не выводить их все.

const n=4;var s: array[1..n] of string;i,j,k,max: integer;mn: set of byte;beginfor i:=1 to n do readln(s[i]);max:=0; mn:=[];for i:=1 to n do begin k:=0; for j:=1 to length(s[i]) do  if s[i][j] in ['+','-','*','/'] then k:=k+1; if k>max then begin max:=k; mn:=[i]; end else if k=max then mn:=mn+[i]; end;writeln('max = ',max);for i:=1 to n do if not(i in mn) then writeln(s[i]); end.Пример:2*3+4 = 101024/32 = 325*3-2=1238+5+7=90max = 21024/32 = 32