Строки и Массивы

j:=2;
while j<=4 do
 begin
  sum:=0;
  for i:=1 to 4 do
   sum:=sum+sqr(a[i,j]);
 writeln('Сумма квадратов ',j,' -го столбца равна ',sum);
 end;

var
s:string;
a,b:char;
k,l,i:integer;
begin
readln(s);
a:=s[1];
b:=s[length(s)];
for i:=1 to length(S) DO
begin
if s[i]=a then inc(k);
if s[i]=b then inc(l);
end;
if k>l then writeln('1-ÿ') else
if k<l then writeln('2-ÿ') else writeln('1=2');
end.

uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
var s:string;
    i,i1,ip,k1,kp:byte;
begin
clrscr;
writeln('Введите предложение:');
readln(s);
{предложение может начинаться и оканчиваться не буквами}
for i:=1 to length(s) do
if s[i] in bk then
 begin
  i1:=i; {ищем первую букву}
  break;
 end;
for i:=length(s) downto 1 do
if s[i] in bk then
 begin
  ip:=i;{ищем последнюю букву}
  break;
 end;
k1:=0;kp:=0;
for i:=1 to length(s) do
 begin
  if s[i]=s[i1] then k1:=k1+1;{считаем их}
  if s[i]=s[ip] then kp:=kp+1;
 end;
if k1>kp then write('Первая буква чаще.')
else if k1<kp then write('Последняя буква чаще.')
else write('Обе буквы встречаются равное число раз.');
readln
end.