للمختصين في c++ والباسكال..محتاجه مساعدتكم ضروري

السلام عليكي ورحمة الله وبركاته

الأول : تقوم بإضهار رسالة خطاء عند مناداتها

الثانية :تقوم بمقارنت قيمة مع قيمة أخرة وإضافة عدد صحيح 1 إلة المصفوفة Input

الثالثة :قراءة متغير ومقارنته بمتغير أخر من نوع Char فإذا كان المتغيران غير متطابقان تعود الدالة بقيمة ()S غير ذلك تعود بنفس القيمة

لا أطيل عليك البرنامج كالتالي

بداية البرنامج

Var

Input:char[10];

Token:char;

i:integer;

begin

prucedure Error ;

begin

Writhln('Error...');

exit(0);

end;

prucedure Match(X:Char);

begin

if Token=X then

begin

inc(i);

Token:=input;

end

else

Error;

end;

Prucedure S;

begin

Match('a');

If Token<> 'b' then

S;

Match('b');

end;

// البرنامج الأساسي

read(input);

Token:=input[0];

S;

if Token = '' then

writeln('Accepted')

else

Error;

end.

أرجو أن أكون قد حققت المطلوب

والسلام عليكم ورحمة الله وبركاته