Составить программу с процедурами

[SsAn]

Текст - строка начинается и заканчивается двузначным числом. Определить, равна сумма цифр длине строки.

[Stilet]

if (Length(s)-4) =
 ((ord[s[1]]-ord('0'))*1000)+
 ((ord[s[2]]-ord('0'))*100)+
 ((ord[s[Length(s)-1]]-ord('0'))*10)+
 ((ord[s[Length(s)]]-ord('0'))*1)
then
 Write('Yes') else Write('no');

Где s - та самая строка.
Идея ясна?

[SsAn]

var s:string;
ord:integer;

function summa(var s:string):string;
begin
if (Length(s)-4) =
 ((ord[s[1]]-ord('0'))*1000)+
 ((ord[s[2]]-ord('0'))*100)+
 ((ord[s[Length(s)-1]]-ord('0'))*10)+
 ((ord[s[Length(s)]]-ord('0'))*1)
then
 Write('Yes') else Write('no');
 end;
 summa:=s;
 end;
 begin
 Writeln('посчитать сумму');
 writeln('Введите строку');
 readln(s);
 
 write(summa(s));
 end.

Я не знаю, что нужно делать дальше.

[SsAn]

И у меня вопрос:
Что такое ord?

[Poma][a]

Что такое ord?

См. справку..

Идея ясна?

Неа
Просят же найти суммы цифр.. а не число, образованное этими цифирками..