Проблема с массивами

[rbkblhjy]

Всем привет.
Пытаюсь решать задачки,дошел до массивов и тут у меня возникла проблема.
Задача:
[пользователь вводит массив с клавиатуры(4),а программа должна сосчитать сколько парных символов я ввёл]
Пример:
[11 22 - 2 пары, 1112- 3 пары]

Вот мой код
Тут много всякой ахинеи,не судите строго я только начал учить

uses crt;
const n=4;
var
a: array[1..n] of integer;
a1: array[1..n] of integer;
b,c,d,e,rez,rez1,g:integer;
BEGIN
clrscr;
 e:=1;
for b:=1 to n do
begin
Write('-->'); readln(a[b]);
a1[b]:=a[b];
end;

repeat

for rez:=1 to n do
begin
if a1[e]=a[rez] then rez1:=rez1+1;

end;

 repeat
if rez=n then

g:=g+1;
until(g=4);

repeat
if rez=n then e:=e+1;
until(e=4);

until(e=4);

writeln('Par ',rez1);

readln;
END.

И он "как ни странно" не правильный..:D ,потому что когда я ввожу символы 1,2,3,4 то мне всеровно выводит что у меня одна пара.
Помогите пожалуйста.

[puporev]

1112- 3 пары

вообще-то спорное утверждение, но если нужно, то так.

uses crt;
const n=4;
var
a: array[1..n] of integer;
b,c,rez1:integer;
BEGIN
clrscr;
for b:=1 to n do
 begin
  Write('-->');
  readln(a[b]);
end;
rez1:=0;
for b:=1 to n-1 do{смотрим элементы массива до предпоследнего}
for c:=b+1 to n do {сравниваем с теми, что впереди}
if a[c]=a[b] then inc(rez1);{если одинаковые, считаем}
writeln('Par ',rez1);
readln;
END.

[rbkblhjy]

Спасибо=)
я бы наверн. до такого и не додумался бы.

[N1ghtMare]

помогите плс, у меня проблема с увеличением отступа в столбцах в матрице. Когда на экране ввожу элементы матрицы мне паскаль выдает матрицу и элементы в ней сливаются
writeln ('a');
for i:= to m do begin
for j:=1 to n do
write(a[i,j]:6:2);
writeln;
в этом месте надо как то добавить "пробелы" я уже около часа играюсь и никак не получается...

[N1ghtMare]

[puporev]

Ничего не видно на картинке, надо было еще меньше сделать. Что за числа у тебя там такие..
Ну напиши

write(a[i,j]:8:2); или
write(a[i,j]:10:2);

[N1ghtMare]

числа взял рандомно.

write(a[i,j]:10:2)

помогло спасибо большое)