{$apptype windows} //Режим Windows-приложения
{$reference System.Windows.Forms.dll}
uses
   System, //Системный модуль
   System.Windows.Forms; //Модуль Windows-форм
var
   myForm:Form; //Новая форма
   myLabel:system.Windows.Forms.Label; //Новая метка

procedure myFormKeyPress(sender:Object; //Объект-отправитель сообщения
           e:System.Windows.Forms.KeyPressEventArgs //Структура с данными
           );
Begin
   //Прибавляем к существующему тексту нашей метки символ нажатой клавиши
   myLabel.Text+=e.KeyChar;
end;

begin
   myForm:=new Form; //Создаём форму
   myForm.Text:='Программа'; //Заголовок формы
   //Назначаем обработчик события нажатия кнопки, если форма имеет фокус
   myForm.KeyPress+=myFormKeyPress;
   //Добавляем метку (надпись на форме)
   myLabel:=new system.Windows.Forms.Label; //Создаём метку
   myLabel.AutoSize:=True; //Авторазмер = да
   myLabel.Left:=0; //Позиция (0,0) от левого верхнего угла формы
   myLabel.Top:=0;
   myForm.Controls.Add(myLabel); //Добавляем метку на нашу форму
    
   Application.Run(myForm); //Запускаем приложение с формой myForm
end.

var str,buf:string; x:longword; i,n:byte;
begin
    str:=edit1.text;
    n:=length(str);
    i:=1;
    while i<=n do
    begin
      if str[i] in ['0'..'9'] then
      begin
        buf:=buf+str[i];
        delete(str,i,1);
        dec(n);
      end
      else inc(i);
    end;
    x:=strtoint(buf);
end;

var str,buf:string; x:longword; i,n:byte;
begin
   str:=edit1.text;
   n:=length(str);
   i:=1; //счётчик
   while i<=n do //FOR не подойдёт, т.к. длина строки меняться будет
     if str[i] in ['0'..'9'] then
     begin
       buf:=buf+str[i];
       delete(str,i,1);
       dec(n); //уменьшаем длину строки, а счётчик не трогаем
     end
     else inc(i); //если не цифра, то просто увеличим счётчик
   x:=strtoint(buf);
end;

Program TF1;
var filin:text; error:byte;
begin
   assign(filin, 'output.txt');
   {$i-} {отключает слежение системы за ошибками ввода-вывода}
   rewrite(filin);
   error:=ioresult; //ioresult возвращает код последней ошибки и сбрасывается
   if error<>0 then
   begin
     writeln('Ошибка открытия файла! Код ошибки: ',error);
     halt(error);
   end;
   write(filin,'Ahahah');
   close(filin);
end.

procedure readword(var f:text; var str:string);
var ch:char;
begin
   str:='';
   read(f,ch);
   while (ch<>#32) and not eof(f) do
   begin
     str:=str+ch;
     read(f,ch);
   end;
end;