обработка текстовой информации в паскале

[Julichka1k]

Задана символьная матрица размером m*n . Изменить матрицу исключая те строки, для которых есть равные среди строк с меньшими номерами.

помогите с кодом

[VadikV]

Держи. Просто готовое уже есть. Все вопросы в приват за дополнительную плату. Контакты в подписи

uses Crt;

const
     MaxN = 20;
     MaxM = 80;

type
    mAr = array[1..MAXN] of String[MaxM];

procedure Print(ar : mAr; n : integer);
var
   i : integer;
begin
   for i := 1 to n do
       WriteLn(ar[i]);
end;


var
   mas : mAr;
   n : integer;
   i, j : integer;

begin
   ClrScr;
   WriteLn('Введите строки массива. Пустая строка - закончить ввод: ');
   n := 0;
   repeat
      inc(n);
      ReadLn(mas[n]);
   until Length(mas[n]) = 0;
   dec(n);

   WriteLn;
   if (n > 0) then begin
      WriteLn('Исходный массив:');
      Print(mas, n);

      { Дубли строк делаем пустыми }
      for i := 2 to n do begin
          for j := 1 to i-1 do begin
              if mas[i] = mas[j] then begin
              mas[i] := '';
              continue;
          end;
         end;
      end;

      { Убрать пустые строки }
      i := 1;
      while i < n do begin
         if Length(mas[i]) = 0 then begin
            for j := i+1 to n do
               mas[j-1] := mas[j];
            dec(n);
         end
         else inc(i);
      end;

      WriteLn;
      WriteLn('Результат:');
      Print(mas, n);
   end;

   ReadKey;
end.

[whatever]

Сообщение от VadikV

Держи. Просто готовое уже есть.

Задана символьная матрица размером m*n

Так что врядли. Хотя работа со строками натолкнула на мысль - можно создать еще однмерный массив строк S размерности m. затем цикл

for i:=1 to m do
  for j:=1 to n do
    begin
      if j=1 then S:='';//обнуляем
      S[i]:=S[i]+mas[i,j];
    end;

А далее по уже описанному принципу находим лишние строки, запоминаем их номера и не печатаем элементы MAS, у которых первая координата равна этим номерам.

[VadikV]

Строка = массив символов
Делал это задание уже. Препод сказал переделать так, как я привел выше
Для гурманов в приведенном мной коде к элементам матрицы можно обращаться а вот так:
mas[номер_строк, номер_символа]

[whatever]

Можно поспорить, но смысла нет. В конечном итоге все зависит от препода, тут согласен на 100%