Удалить дубликаты из массива символов. Матрица из 0 и 1

[JFL]

Помогите пожалуйста.
2 задачки по паскалю, сегодня писать/сдавать отчет по практике (
1.Задан массив из k символов. Удалить из него повторные вхождения каж-дого символа.
2.Задан двухмерный массив целых чисел A размером N на M, состоящий из нулей и единиц. Найти количество нулей и единиц в этом массиве.

Заранее благодарен, но, даже, если лень будет писать, спасибо хоть что уделили внимание этому

Добавлено: Нашел тоже самое по принципу строки.
п.с. Паскаль до этого вообще не учил :/

program xX;
var cr:intiger;i:integer;c:char;s:string;
begin
writeln('vvedite simvol')
readln(c);
writeln('vvedite stroky')
readln(s)
i:=1;
cr:=0:
while i<length(s) do
begin
if S[1]=C then cr:=cr+1;
if cr>1 then delete(S,i,1)else i:=i+1;
end;

Но это "недоделка"

 

[hosm]

если массив правильно сформирован (m*n элементов - только 0 и 1), то так:

var kol0, kol1 : integer;
kol0 :=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]=0 then 
kol0 :=kol0 + 1;
kol1 :=m*n-kol0;

а если может быть что-то еще, то так:

var kol0, kol1 : integer;
kol0 :=0;
kol1 :=0; 
for i:=1 to n do
for j:=1 to m do
if a[i,j]=0 then 
kol0 :=kol0 + 1
else 
if a[i,j]=1 then 
kol1 :=kol1 + 1;

 

[JFL]

С радостью выслушаю твои предложения о выражении благодарности именно здесь.

 

[JFL]

Я заблудился, помоги же мне )
Это инзначально подрузамевалось в вышенаписанном