Текст консольной Delphi-программы

[trafficj]

Доброго времени суток.
Хотел бы попросить у вас помочь мне в написании текста консольной делфи программы. Сам не очень всё это понимаю и прошу если можно объяснить что и как.

1. Дан двумерный массив. Найти сумму и количество положительных элементов, лежащих выше главной диагонали.

Вот что у меня вышло, так ли это, а если нет, то прошу написать что неправильно

sum:=0;
count:=0;
for i:=1 to n do
   for j:=1 to n do
      if (j>i) then 
      begin
        sum:=sum+arr[i,j];
        if (arr[i,j]>0) then Inc(count);
      end;

2. Дан текст. Определить количество слов, которые содержат определенное число вхождений заданной буквы. Пример текста, обрабатываемого программой написать самостоятельно.

Вот что у меня вышло, так ли это, а если нет, то прошу написать что неправильно

procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей слов.
  D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
var
  S : String;
  Ch : Char;
  Da : Set of Char;
  i, Len, CntA, CntA1, CntW : Integer;
begin
  //Ввод исходных данных.
 
  //Исходный текст.
  S := Memo1.Text;
  //Буква.
  if Edit1.Text <> '' then
    Ch := Edit1.Text[1]
  else begin
    ShowMessage('Буква не задана. Действие отменено.');
    Exit;
  end;
  //Составляем множество из заглавной и строчной версий буквы.
  Da := [ AnsiUpperCase(Ch)[1], AnsiLowerCase(Ch)[1] ];
  //Количество присутствий буквы в слове.
  CntA := StrToIntDef(Edit2.Text, -1);
  if CntA = -1 then begin
    ShowMessage('Неверно задано количество присутствий буквы в слове. Действие отменено.');
    Exit;
  end;
 
  //Решение задачи.
 
  Len := Length(S);
  CntA1 := 0;
  CntW := 0;
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Подсчитываем количество присутствий заданной буквы в очередном слове.
    if S[i] in Da then Inc(CntA1);
    //Отслеживаем конец слова.
    if (i = Len) or (S[i + 1] in D) then begin
      //Если количество присутствий заданной буквы совпадает с заданным,
      //то подсчитываем это слово.
      if CntA = CntA1 then Inc(CntW);
      //Сброс счётчика букв.
      CntA1 := 0;
    end;
  end;
 
  //Ответ.
  Memo2.Clear;
  Memo2.Lines.Add('Количество слов, в которых буква "' + Ch + '"');
  Memo2.Lines.Add('присутствует ' + IntToStr(CntA) + ' раз:');
  Memo2.Lines.Add(IntToStr(CntW));
end;

3. Задана система из одного слова и координат концов отрезка. Требуется сравнить количество букв в слове и длиной отрезка

Заранее огромное спасибо

[demeros]

for i:=1 to n {главную диагональ не учитываем}
for j:=1 to n {при проходе по массиву в первом рядке будет n-1 столбцов, во втором n-2 и тд. , написав n-i мы будем правильно проходить мо элементам}
begin
if (i>j) and (arr[i,j]>0) then{нам нужны только положительные элементы}
begin
sum:=sum+arr[i,j];
Inc(count);
end;
end;

второе не осилил, голова не варит.

[demeros]

var coords:array [0..3] of real = (0,0,1,4);
    str:string='ababagalamaga';
    ln,ln2:word;
begin
    ln:=Length(str);{количество букв в слове}
    ln2:=Trunc(sqrt(sqr(coords[2]-coords[0])+sqr(coords[3]-coords[1])));{длина вектора за формулой,Trunc так как для сравнения нам нужно целое число}
    Writeln('word lenght = ',ln);
    Writeln('line lenght = ',ln2);
    if (ln>ln2) then
    writeln('word longer then line')
    else
      writeln('line longer then word');
end.

3. както так, если правильно условие понял.
в массиве (x1,y1,x2,y2)

[trafficj]

Огромное спасибо!
не знаете что делать с задачей три делать

3. Задана система из одного слова и координат концов отрезка. Требуется сравнить количество букв в слове и длиной отрезка

[Serge_Bliznykov]

длина вектора за формулой,Trunc так как для сравнения нам нужно целое число}

зачем? Где это сказано, что нужно сравнить "целую часть" длины отрезка с длиной слова?!
я, конечно молчу вообще про логику и правомочность подобных сравнений..
Как в сценке в КВН про качков (команда "уральские пельмени").
- Ты прикинь, я ж от груди 180 жму. А это почти мой рост!!

так что можно просто

if Length(Slovo)> sqrt(sqr(x1-x2)+sqr(y2-y1)) then Writeln('Длина слова больше длины отрезка! ')
  else Writeln('Длина слова меньше или равна длины отрезка! ');

[demeros]

Сообщение от Serge_Bliznykov

зачем? Где это сказано, что нужно сравнить "целую часть" длины отрезка с длиной слова?!
я, конечно молчу вообще про логику и правомочность подобных сравнений..
Как в сценке в КВН про качков (команда "уральские пельмени").
- Ты прикинь, я ж от груди 180 жму. А это почти мой рост!!

так что можно просто

if Length(Slovo)> sqrt(sqr(x1-x2)+sqr(y2-y1)) then Writeln('Длина слова больше длины отрезка! ')
  else Writeln('Длина слова меньше или равна длины отрезка! ');

Спасибо за ваши добрые слова и обьективные замечания!