Задача на символьную матрицу

[vitalik-q3]

Дана символьная матрица размер nxm.Получить последовательно все строки матрицы,исключая те,для которых есть равные среди строк с меньшим номером.
Помогите с решением.
Нужно решить в Pascal

[Stilet]

есть равные среди строк с меньшим номером

Это как? Пример в студию.

[vitalik-q3]

Это типо,есть:
ааа
ббб
ппп
ббб
нужно удалить равные строки стоящие раннее,т. в нашем случае 2-юстрочку. а последнюю оставить без изменения

[Stilet]

А-а-а...
Ну это не сложно.
Покажешь как вводишь массив?

[vitalik-q3]

uses crt;
const n=4; m=3;
var a,b,c:array[1..n,1..m] of integer;
    q,i,j,k,p:integer; f:boolean;
 
begin clrscr;
 writeln('Введите построчно элеметы матрицы,сосотоящие из цифр:');
 for i:=1 to n do
  for j:=1 to m do
   begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
   write(a[i,j]:4);
   writeln;
 end;
writeln;

но нужно не только цифры но и буквы
вот нашел такую программу,но она не работает,а что в ней не так не пойму

uses crt;
const n=4; m=3;
var a,b,c:array[1..n,1..m] of integer;
    q,i,j,k,p:integer; f:boolean;
 
begin clrscr;
 writeln('Введите построчно элеметы матрицы,сосотоящие из цифр:');
 for i:=1 to n do
  for j:=1 to m do
   begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
   write(a[i,j]:4);
   writeln;
 end;
writeln;
 
q:=0;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    k:=0;
    for p:=1 to  m do
    if a[i,p]=a[j,p] then k:=k+1;
 
  if k=m then
   begin a[i,p]:=b[i,j]; q:=q+1; end;
  if k<>m then a[i,p]:=c[i,p];
 end;   end;
for i:=1 to q do
    begin
     for j:=1 to  m do
     write(c[i,j]:4); writeln;
    end;
end.

[Stilet]

но нужно не только цифры но и буквы

Сразху предупреждаю - не проверял, но думаю сработает:

uses crt;
const n=4; m=3;
var s:array[1..n] of string[m];
    i:integer; 
 
begin clrscr;
 writeln('Введите строки матрицы:');
 for i:=1 to n do
   begin
    write('s[',i,']=');
    readln(s[i]);
 end;
clrscr;

writeln('Исходная матрица:');
for i:=1 to n do   writeln(s[i]);
writeln;

for i:=n downto 1 do begin
  for j:=i-1 downto 1 do if s[i]=s[j] then s[j]:=''; 
end;

writeln('матрица без повторов:');
for i:=1 to n do if s[i]<>'' then  writeln(s[i]);

writeln;

[vitalik-q3]

Спасибо,все работает.Оказывается код,легче счем я думал.Жаль что сам не додумался.
Единственное в тексте программы не хватает:
1) не описан J: integer,
2) нет в конце программы end.
Cпасибо еще раз.