Помогите решить мне задачу по Delphi, я на экзамене

[vbn]

1)В Строке найти максимальную по длине последовательность цифр.
Задачу решить в среде Delphi

[capta1n]

program ppp;
var
 s : string;
 sub,s1 : string;
 i : byte;
begin

  writeln ('Vvedite stroku:');
  readln(s);
  s:=s+'a';
  sub:='';
  s1:='';
  for i:=1 to length(s) do
   if s[i] in ['0'..'9'] then sub:=sub+s[i]
   else
    if sub<>'' then
               begin
                 if length(sub) > length(s1) then s1:=sub;
                 sub:=''
               end;

  writeln (s1);

  readln
end.

[capta1n]

делал на паскале - по-моему, чтобы в делфях заработало, надо перед прогой написать {$Apptype console}

[vbn]

спасибо большое сможешь плмлч еще решить две задачию
1) пусть дано натуральное N. Выяснить, является ли оно степенью числа 3 . Ввод числа с поля Edit Производиться после нажатия клавиши Enter.

2) Пусть дана последовательность из N элементов . Уменьшите ее, удалив все минемаоьные и максимальные элементы и сдвинув все остальные к началу последоваиельности . Код данной задачи поместить в метод FormCreate/

[capta1n]

я не работаю в делфи - я знаю язык паскаль и работаю в среде Турбо - так что с формами ничего не выйдет - могу написать просто твое задание на паскале, но если будет толк

[vbn]

знаешь кто решает сдесь на делфи

[capta1n]

да в помощь по делфи зайди