Составить программу для ввода в ЭВМ произвольной вещественной матрицы размером M*N и вывода первого не равного заданному S элемента каждой строки.

Сама программа у меня есть,она работает,но ее нужно написать БЕЗ ''break''!

Спасибо,это то что надо,но нужно что бы было не рандомно,а самому вводить матрицу

var ma:array of array of real;i,j,s,m,n,k:integer;begin;randomize;writeln('Введите S:');readln(s);writeln('Введите размерность матрицы:');readln(n);readln(m);setlength(ma,n+1);for i:=1 to n dosetlength(ma[i],m+1);writeln('Введите матрицу:');for i:=1 to n do  for j:=1 to m do   read(ma[i,j]);writeln('Matrix:');for i:=1 to n do begin;  writeln;   for j:=1 to m do     write(ma[i,j]:4); end;writeln;writeln('Results:');for i:=1 to n dobegin; for j:=1 to m do  if (ma[i,j]<>s) and (k=0) then    begin;    k:=1;    writeln(ma[i,j]);    end; k:=0;end;end.