Заменить все большие семи члены последовательности числом 7. Вычислить количество таких членов

const N = 10; // число элементов массива
var a: array[1..N] of integer;
    i, count: integer;
...
count := 0; // зануляем переменную-счетчик
write('Isxodnyy massiv: '); // текст
for i := 1 to N do begin
  write(a[i], ' '); // выводим исходный массив
  if a[i] > 7 then begin
    a[i] := 7; // проводим замену
    Inc(count); // увеличиваем счетчик
  end;
end;
writeln; // переход на новую строку
write('Massiv s zamenennymi elementami: '); // текст
for i := 1 to N do
  write(a[i], ' '); // выводим измененный массив
writeln; // переход на новую строку
writeln('Zameneno elementov massiva: ', count); // выводим количество замененных элементов
readln; // пауза

const N = 10;
var a: array[1..N] of integer;
    i, count: integer;
    s: string;
...
s := Edit1.Text;
if s[length(s)] <> ' ' then s := s + ' ';
for i := 1 to N do begin
  a[i] := StrToInt(Copy(s, 1, pos(' ', s) - 1));
  Delete(s, 1, pos(' ', s));
end;
count := 0;
Memo1.Lines.Add('Isxodnyy massiv: ');
for i := 1 to N do begin
  Memo1.Lines[0] := Memo1.Lines[0] + IntToStr(a[i]) + ' ';
  if a[i] > 7 then begin
    a[i] := 7;
    Inc(count);
  end;
end;
Memo1.Lines.Add('Massiv s zamenennymi elementami: ');
for i := 1 to N do
  Memo1.Lines[1] := Memo1.Lines[1] + IntToStr(a[i]) + ' ';
Memo1.Lines.Add('Zameneno elementov massiva: ' + IntToStr(count));