Найти площадь, периметр и угол треугольника по длинам трёх его сторон ( Delphi 7 )

[CONDOR*]

Даны три числа a,b,c удовлетворяющие аксиоме треугольника и число p. Выполнить следующие действия: Если p=1 - найти периметр треугольника; Если p=2 - найти площадь треугольника;Если p=3 - найти угол а. Иначе напечатать слово треугольник.
Задача почти готовая, но имеются затруднения в некоторых моментах.
Исходник:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function Rus(mes:string): string;
var
i: integer;
begin
for i:=1 to length (mes) do
case mes[i] of
'А'..'п': mes[i]:= Chr(Ord(mes[i])-64);
'р'..'я': mes[i]:= Chr (Ord(mes[i])-16);
end;
rus:=mes;
end;
var
a,b,c,S,V,alpha :real;
p: integer;
begin
Writeln(Rus('Введите число a:'));
Readln(a);
Writeln(Rus('Введите число b:'));
Readln(b);
Writeln(Rus('Введите число c:'));
Readln(c);
Writeln(Rus('Введите число p'));
Readln(p);
begin
If p=1 then V:=(a+b+c)/2;  // нахождение полупериметра треугольника
If p=2 then S:=sqrt(v*(v-a)*(v-b)*(v-c));//  вычисление площади треугольника
If p=3 then cos(alpha):=sqr(b)+sqr(c)-2*b*c*cos(a);
else Writeln(Rus('Треугольник'));
end;
end;
  { TODO -oUser -cConsole Main : Insert code here }
end.

___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.


2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[BDA]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

function Rus(mes: string): string;
var
  i: integer;
begin
  for i := 1 to length(mes) do
    case mes[i] of
      'А'..'п': mes[i] := Chr(Ord(mes[i]) - 64);
      'р'..'я': mes[i] := Chr(Ord(mes[i]) - 16);
    end;
  rus := mes;
end;
var
  a, b, c, S, V, alpha: real;
  p: integer;
begin
  Writeln(Rus('Введите число a:'));
  Readln(a);
  Writeln(Rus('Введите число b:'));
  Readln(b);
  Writeln(Rus('Введите число c:'));
  Readln(c);
  Writeln(Rus('Введите число p'));
  Readln(p);
  case p of
    1: writeln((a + b + c): 0: 3);
    2: begin
        V := (a + b + c) / 2;
        S := sqrt(v * (v - a) * (v - b) * (v - c));
        writeln(s: 0: 3);
      end;
    3: begin
        alpha := radtodeg(ArcCos((sqr(b) + sqr(c) - sqr(a)) / (2 * b * c)));
        writeln(alpha: 0: 3);
      end;
  else
    Writeln(Rus('Треугольник'));
  end;
  readln;
end.