Помогите доделать задачу про массивы Опции

[-Павел-]

Задача такая: даны два символьных массива. В массиве, который содержит наибольшее число цифр, заменить все буквы символом '*', а в другом массиве все буквы - символом '+'.
Я подумал и написал вот такую программу:

Program lab_4;
type xt=array [1..5] of char;
var
x,y:xt; j:integer;
procedure Pr(a,b:xt);
var i,k,n:integer;
begin
k:=0;n:=0;
for i:=1 to 5 do
if a[i] in ['0'..'9'] then
k:=k+1;
for i:=1 to 5 do
if b[i] in ['0'..'9'] then
n:=n+1;
if k>n then
for i:=1 to 5 do
begin
if a[i] in ['a'..'z'] then
a[i]:='*';
if b[i] in ['a'..'z'] then
b[i]:='+';
end;
else
for i:=1 to 5 do
begin
if b[i] in ['a'..'z'] then
b[i]:='*';
if a[i] in ['a'..'z'] then
a[i]:='+';
end;
end;
BEGIN
writeln('vvedite massiv 1:');
for j:=1 to 5 do
readln(x[j]);
writeln('vvedite massiv 2:');
for j:=1 to 5 do
readln(y[j]);
Pr(x,y);
for j:=1 to 5 do
write(x[j]);
writeln;
for j:=1 to 5 do
write(y[j]);
readln;
END.

Проблема в том, что буквы в массивах не меняются на соответствующие символы (хотя массив с наибольшим количеством цифр определяется), и я никак не могу понять почему. Может быть, кто мне поможет. Заранее спасибо.
P.S. В программе обязательное использование процедуры.

Сообщение отредактировано: volvo - 13.12.2006 14:01

[по теме]

Ребят, помогите, пожалуйста, с ещё двумя задачами:
1) Дан одномерный символьный массив. Сформировать новый массив, состоящий только из разных элементов исходного. (Пример: 1 массив - ассип, 2 массив - асип).
2) Дан двумерный массив. Определить, есть ли в ней равные строки.

[Caranthir]

2) Дан двумерный массив. Определить, есть ли в ней равные строки.

Типо того:

Код

uses
  SysUtils;
var
  a:Array of array of Integer;
  i,j,n,x,y,c:Integer;
begin
  readln (n);
  SetLength(a,n,n);
  randomize;
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do begin
      //a[i,j]:=random (2)-1;
      readln(a[i,j]);
      //write (a[i,j]:5);
    end;
    //writeln;
  end;
  y:=0;
  for x:=0 to n-2 do
    for i:=1 to n-1 do
      for j:=0 to n-1 do
        if (a[i,j]=a[x,y])and(i<>x) then begin
          inc(y);
          inc(c);
        end
        else begin
          y:=0;
          break;
        end;
  if c=n then writeln('yes') else writeln ('NO');
  readln;
end.