число начинается и заканчивается одной цифрой

program chislo;
uses crt;
var n,i,e,c,summ:integer;
    k:boolean;
    s:string;
    mas:array [1..100] of integer;
begin
clrscr;
 Writeln ('Vvedite chislo ');
 Readln (n);
 str (n,s);
 for i:=1 to length(s) do begin
                          Val (s[i],c,e);
                          Mas[i]:=C;
                          end;
 Write ('Cifry chisla ');
 For i:=1 to length(s) do
 write (mas[i]:3);
 Writeln;
 For i:=1 to length(s) do
 summ:=summ+mas[i];
 Writeln ('Summa cifr chisla N = ',summ);
 Readln
end.

program chislo;
uses crt;
var i,e,c,summ,per,pos:integer;
    n:longint;
    s:string;
    mas:array [1..100] of integer;
begin
clrscr;
 Writeln ('Vvedite chislo ');
 Readln (n);
 str (n,s);
 for i:=1 to length(s) do begin
                          Val (s[i],c,e);
                          Mas[i]:=C;
                          end;
 writeln;
 Write ('Cifry chisla ');
 For i:=1 to length(s) do
 write (mas[i]:3);
 Writeln;
 For i:=1 to length(s) do
 summ:=summ+mas[i];
 Writeln (' Summa cifr chisla N = ',summ);
 writeln;
 Per:=mas[1];
 Pos:=mas[length(s)];
 if per=pos then writeln (' Nomera coBpadajut ')
            else writeln (' Nomera ne coBpali ');
 Readln
end.