Одномерный массив, Задача одномерный массив Опции

[sweet angel]

Помогите пожалуйста решить задачу на Паскале!
Даны натуральное число n, целые числа A1, ..An. Заменить все, большие 7, элементы последовательности числом 7. Вычислить количество таких элементов.
Вот, я пыталась:

var
i: Integer;
c: Integer;
A: array[1..100] of Integer;
begin
c :=0;
for i := 1 to n do
begin
if (A[ i ]>7) then
begin
A[ i ] := 7;
c := c+1;
end;
end;
writeln( c );
end;

Но ничего не получилось (

Сообщение отредактировано: volvo - 16.12.2009 18:17

[volvo]

А описываете двумерный.

С чего бы это он был двумерный?

Автору: Тегами пользуйся, без них код нечитаемый...

Добавлено через 1 мин.

Но ничего не получилось (

Хинт: Чему равно N перед входом в цикл?

[sweet angel]

С чего бы это он был двумерный?

Автору: Тегами пользуйся, без них код нечитаемый...

Добавлено через 1 мин.
Хинт: Чему равно N перед входом в цикл?

N - любое натуральное число, которое нужно ввести

write (vvedite n=')
readln (n);