процедура Pause

[1Hitman1]

Программа выдает ошибку:

var Man : string; i : integer;
    B : Boolean;
procedure Pause ( S: string);
begin
     for i:=1 to Length(Man) do
   if B = (Man[i]='А') or (Man[i]='а')or(Man[i]='б') or(Man[i]='Б')
   or(Man[i]='В')or(Man[i]='в')or(Man[i]='Г')or(Man[i]='г')or(Man[i]='Д')
   or(Man[i]='д')or(Man[i]='Е')or(Man[i]='е')or(Man[i]='Ё')or(Man[i]='ё')
   or(Man[i]='Ж')or(Man[i]='ж')or(Man[i]='З')or(Man[i]='з')or(Man[i]='И')
   or(Man[i]='и')or(Man[i]='Й')or(Man[i]='й')or(Man[i]='К')or(Man[i]='к')
   or(Man[i]='Л')or(Man[i]='л')or(Man[i]='М')or(Man[i]='м')or(Man[i]='Н')
   or(Man[i]='н')or(Man[i]='О')or(Man[i]='о')or(Man[i]='П')or(Man[i]='п')
   or(Man[i]='Р')or(Man[i]='р')or(Man[i]='С')or(Man[i]='с')or(Man[i]='Т')
   or(Man[i]='т')or(Man[i]='У')or(Man[i]='у')or(Man[i]='Ф')or(Man[i]='ф')
   or(Man[i]='Х')or(Man[i]='х')or(Man[i]='Ц')or(Man[i]='ц')or(Man[i]='Ч')
   or(Man[i]='ч')or(Man[i]='Ш')or(Man[i]='ш')or(Man[i]='Щ')or(Man[i]='щ')
   or(Man[i]='Ъ')or(Man[i]='ъ')or(Man[i]='Ы')or(Man[i]='ы')or(Man[i]='Ь')
   or(Man[i]='ь')or(Man[i]='Э')or(Man[i]='э')or(Man[i]='Ю')or(Man[i]='ю')
   or(Man[i]='Я')or(Man[i]='я')
     then S:='Намите Enter...' else S:='Press Enter...';
    Writeln(S);
    Readln;
end;
begin    {---главная программа---}
     Writeln('Как тебя зовут?'); Readln(Man);
     Writeln('Здравствуй, ', Man);
     Pause;
end.

Если убрать процедуру Pause , то работает.
var Man, S : string; i : integer;
    B : Boolean;
{procedure Pause (S: string);}
begin
   Writeln('Введите имя: '); Readln(Man);
   for i:=1 to Length(Man) do
   if (Man[i]='А') or (Man[i]='а')or(Man[i]='б') or(Man[i]='Б')or
   (Man[i]='В')or(Man[i]='в')or(Man[i]='Г')or(Man[i]='г')or(Man[i]='Д')
   or(Man[i]='д')or(Man[i]='Е')or(Man[i]='е')or(Man[i]='Ё')or(Man[i]='ё')
   or(Man[i]='Ж')or(Man[i]='ж')or(Man[i]='З')or(Man[i]='з')or(Man[i]='И')
   or(Man[i]='и')or(Man[i]='Й')or(Man[i]='й')or(Man[i]='К')or(Man[i]='к')
   or(Man[i]='Л')or(Man[i]='л')or(Man[i]='М')or(Man[i]='м')or(Man[i]='Н')
   or(Man[i]='н')or(Man[i]='О')or(Man[i]='о')or(Man[i]='П')or(Man[i]='п')
   or(Man[i]='Р')or(Man[i]='р')or(Man[i]='С')or(Man[i]='с')or(Man[i]='Т')
   or(Man[i]='т')or(Man[i]='У')or(Man[i]='у')or(Man[i]='Ф')or(Man[i]='ф')
   or(Man[i]='Х')or(Man[i]='х')or(Man[i]='Ц')or(Man[i]='ц')or(Man[i]='Ч')
   or(Man[i]='ч')or(Man[i]='Ш')or(Man[i]='ш')or(Man[i]='Щ')or(Man[i]='щ')
   or(Man[i]='Ъ')or(Man[i]='ъ')or(Man[i]='Ы')or(Man[i]='ы')or(Man[i]='Ь')
   or(Man[i]='ь')or(Man[i]='Э')or(Man[i]='э')or(Man[i]='Ю')or(Man[i]='ю')
   or(Man[i]='Я')or(Man[i]='я')
     then  S:='Намите Enter...' else S:='Press Enter...';

      Writeln(S);
      Readln;
end.

[Arigato]

Изучите множества в Паскале.

[s-andriano]

1. Первая реакция у меня была такая же, как и у Arigato.

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

[1Hitman1]

да множества еще не дошел.
Задача такая, вот программа:

var Man : string;
procedure Pause;
begin
Write(’Нажмите Enter…’);
Readln;
end;
begin
Writeln(’Как тебя зовут?’); Readln(Man);
Writeln(’Здравствуй, ’, Man);
Pause;
end.

это задание к первому сообщению. Напишите еще одну версию процедуры Pause, выводящую сообщение
либо на русском, либо на английском языке. Параметр этой процедуры должен
быть булевым и работать она должна так.

Pause(true); { печатается «Нажмите Enter…» }
Pause(false); { печатается «Press Enter…» }

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

[s-andriano]

Перечитайте сообщение №3, ошибка там указана.

[1Hitman1]

спасибо буду разбираться

[Poma][a]

Так же в задании сказано, что аргументом является переменная булевского типа. У Вас же она - строка.

Даже если Вы не знаете множеств, есть более красивое(ые) решение(я), особенно, если набраться наглости и заявить, что если 1-ая буква имени - буржуйская, то и всё имя будет являться буржуйским! (ессено это решения требует гарантии, что ввод будет корректным)

begin

         <..>; ReadLn (Man);
         UpCase (s[1]);
         if (s[1] >= 'A') and (s[1] <= 'Z') then
                   Pause (true)
         else
                   Pause (false)

end.

[1Hitman1]

Программа заработала
Добавил в процедуру Pause('')


var Man : string; i : integer;
B : Boolean;
procedure Pause ( S: string);
begin
for i:=1 to Length(Man) do
if B = (Man[i]='А') or (Man[i]='а')or(Man[i]='б') or(Man[i]='Б')
or(Man[i]='В')or(Man[i]='в')or(Man[i]='Г')or(Man[i]='г')or(Man[i]='Д')
or(Man[i]='д')or(Man[i]='Е')or(Man[i]='е')or(Man[i]='Ё')or(Man[i]='ё')
or(Man[i]='Ж')or(Man[i]='ж')or(Man[i]='З')or(Man[i]='з')or(Man[i]='И')
or(Man[i]='и')or(Man[i]='Й')or(Man[i]='й')or(Man[i]='К')or(Man[i]='к')
or(Man[i]='Л')or(Man[i]='л')or(Man[i]='М')or(Man[i]='м')or(Man[i]='Н')
or(Man[i]='н')or(Man[i]='О')or(Man[i]='о')or(Man[i]='П')or(Man[i]='п')
or(Man[i]='Р')or(Man[i]='р')or(Man[i]='С')or(Man[i]='с')or(Man[i]='Т')
or(Man[i]='т')or(Man[i]='У')or(Man[i]='у')or(Man[i]='Ф')or(Man[i]='ф')
or(Man[i]='Х')or(Man[i]='х')or(Man[i]='Ц')or(Man[i]='ц')or(Man[i]='Ч')
or(Man[i]='ч')or(Man[i]='Ш')or(Man[i]='ш')or(Man[i]='Щ')or(Man[i]='щ')
or(Man[i]='Ъ')or(Man[i]='ъ')or(Man[i]='Ы')or(Man[i]='ы')or(Man[i]='Ь')
or(Man[i]='ь')or(Man[i]='Э')or(Man[i]='э')or(Man[i]='Ю')or(Man[i]='ю')
or(Man[i]='Я')or(Man[i]='я')
then S:='Press Enter...' else S:='Нажмите Enter...';
Writeln(S);
Readln;
end;
begin {---главная программа---}
Writeln('Как тебя зовут?'); Readln(Man);
Writeln('Здравствуй, ', Man);
Pause('');
end.

[Poma][a]

Добавил в процедуру Pause('')

Так-с.. у Вас глобалные процедуры и функции.. это, наверное, не есть хорошо..
Но это не главная проблема!! Еще раз перечитайте задание и пост#7. Ваша программа работает, НО не так как это просилось в задании

[1Hitman1]

Сейчас разберусь. Вчера инет не работал, поэтому сам пытался додумать.