найдите ошибку в программе
#include
using namespace std;
int main()
{
int d1=10, d2=12, P, S, pold1, pold2; double a;
S=d1*d2/2;
cout<<"S="< pold1=d1/2;
pold2=d2/2;
a=pold1*pold1+pold2*pold2;
P=sqrt(a)*4;
cout<<"P="<

Во-первых, не whill, а while.
 Во-вторых, цикл с предусловием(while) выполняется только тогда, когда его условие возвращает ложь. Если условие возвращает правду, цикл завершается. Бывает так, что при попытке первой итерации цикла условие уже возвращает правду. В этом случае цикл не будет выполнен ни разу.
 Цикл с предусловием(repeat), наоборот, выполняется, пока условие возвращает правду и завершается ложью. Стоит заметить, что если цикл с предусловием проверяет своё условие перед итерацией, цикл с постусловием делает это после, а это значит, что последний выполнится хотя бы один раз.

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

type

 TRAIN = record

   ПунктНазначения: string;

   НомерПоезда: string;

   ВремяОтправления: DateTime

 end;

procedure ВводДанных(Список: List<TRAIN>);

begin

 var Поезд: TRAIN;

 var ЧЧММ: string;

 for var i := 1 to 6 do // 6 поездов

 begin

   Println('Ввод данных о поезде', i);

   Поезд.ПунктНазначения := ReadlnString('Пункт назначения:');

   Поезд.НомерПоезда := ReadlnString('Номер поезда:');

   repeat

     ЧЧММ := ReadlnString('Время отправления (ЧЧ:ММ):');

   until DateTime.TryParse(ЧЧММ, Поезд.ВремяОтправления);

   Список.Add(Поезд)

 end

end;

procedure ПоискПоездов(Список: List<TRAIN>; ПунктНазначения: string);

begin

 var Отобрано:=

     Список.Where(Поезд->Поезд.ПунктНазначения=ПунктНазначения);

 if Отобрано.Count>0 then

   foreach var Поезд in Отобрано do

     Writeln($'{Поезд.НомерПоезда} {Поезд.ВремяОтправления:HH-mm}')

 else

   Println('Нет поездов на это направление')

end;

begin

 var Поезда := new List<TRAIN>;

 ВводДанных(Поезда);

 ПоискПоездов(Поезда,ReadlnString('Куда едем?'))

end.