Задача на массив

[Начинающий програм]

Добрый вечер.Помогите пожалуйста с задачей!

Pascal

№1
Произвольный выпуклый многоугольник задан координатами своих вершин на плоскости. Найдите самую длинную диагональ данного многоугольника.

[Начинающий програм]

Помогите пожалуйста найти ошибку!

Pascal

№2
Пусть даны целое число n, символы S1, S2, ..., Sn. Преобразуйте последовательность S1, S2, ..., Sn, удалив каждый символ звездочки и повторив каждый символ, отличный от звездочки.

const nmax=200;
var a:array[1..nmax] of char;
    n,i,j:integer;
begin
readln(n);
for I := 1 to n do
  Read(a[i]);
for I := 1 to n do
  write(a[i],' ');
for I := n downto 1 do
    if a[i]='*' then
      begin
        for j := i to n-1 do
          a[j]:=a[j+1];
          n:=n-1;
      end;
      else
        begin
          for j := n to i do
            a[j+1]:=a[j];
          n:=n+1;
        end; 
i:=1;
while i<=n do
begin
  for j := n to i do
    a[j+1]:=a[j];
  n:=n+1;
i:=i+2;
end;
writeln;
for I := 1 to n do
  write(a[i],' ');
readln;
readln;
end.

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

[Mandrivnyk]

Сообщение от Начинающий програм

Добрый вечер.Помогите пожалуйста с задачей!

Pascal

№1
Произвольный выпуклый многоугольник задан координатами своих вершин на плоскости. Найдите самую длинную диагональ данного многоугольника.

функция нахождения растояния между двумя точками на плоскости и двойной цикл...

[Начинающий програм]

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

функция нахождения растояния между двумя точками на плоскости и двойной цикл...

Я не очень понял. Можно поподробней?