Ошибка

[Владан]

Данны символы. Известно, что символ s1 не знак восклицания, и среди s2.........sn есть по крайней мере один восклицательный знак. Пусть s1, .... sn символы последовательности, предшествующих первому восклицательного знака (n заранее неизвестно).б) Выяснить, входит в последовательность s1........sn буква ю.

program Project99;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  math,
  windows;
Var A:array [1..n] of char;
  c,n,i:integer;
  function kot(var aa:char):integer;
  var c1:integer;
  begin
  if aa='ю'then c1:=1;
  kot:=c1;
  end;
begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);
  Writeln('Введіть кількість символів');
  readln(n);
  Writeln ('Введіть символи');
  for i:=1 to n do readln(A[i]);
  i:=1;
  While i<=n do
begin
  c:=kot(A[i]);
  i:=i+1;
end;
  if c=1 then Writeln('є літера ю')
  else Writeln('немає літери ю');
  readln;
end.

[Error] Project99.dpr(8): Undeclared identifier: 'n'
[Error] Project99.dpr(9): Identifier redeclared: 'n'

что сделать с n ,если выбивает ошибки и константой её задать нельзя

[MihalNik]

Смотрите что такое динамический массив

[Владан]

Сообщение от MihalNik

Смотрите что такое динамический массив

что именно нужно сменить ?

[ViktorR]

 Var A:array [1..n] of char;

Такое определение обрабатывается следующим образом:
В сегменте данных на стадии компиляции выделяется область из n байт.
На момент обработки n должно быть определено.

Но можно не делать такого определения. Можно вообще не запрашивать у пользователя число символов, которые он намерен вводить.
Можно определить, как в условии задания, что ввод символов должен завершиться восклицательным знаком (перед запросом на ввод последовательности символов можно об этом сообщить пользователю: 'Вводи символы. Символ ''!'' завершает ввод'.
В цикле ожидаешь нажатие клавиш и считываешь символ. Проверяешь символ на соответствие заданной букве.

repeat
......
until ch='ю';

В теле цикла проверяешь значение введенного символа. Если находится восклицательный знак, то устанавливаешь переменную-флажок в значение true и покидаешь цикл.

if ch = '!' then
begin
   flg := true;
   break;
end;

За циклом пишешь условие

if Not flg then
   writeln('Символ присутствует!')
else
   writeln('Символ отсутствует');

В помощь тебе модуль Crt и KeyPressed с ReadKey.

uses Crt;
...
...
repeat
until KeyPressed;
ch := ReadKey();

что именно нужно сменить ?

Нужно не менять, а переделывать код.


Вроде так ...