var data:myType;
readln(data);
if (testData(data)) then
writeln('dati korekti')
else
writeln('dati nekorekti');

Wow!Tas tik bija izsmeļoši.Uzreiz sapratu!

#1 atbilde bija pat pārāk izsmeļoša priekš šāda uzdotā jautājuma :)

Tikpat labi ir uzdot tādu vispārīgu jautājumu - "Kā lai izmēra?" kurš pēc būtības risināmo uzdevumu nemaz neapraksta un to nezinot arī nav iespējams uz šādu jautājumu atbildēt. Uzdod normālus jautājumus, normāli aprakstot lietas būtību, un varbūt tad arī kāds tev atbildēs :)

Nu jā,Eric tieši atbildēja uz manu jautājumu.Tikai es tā arī paliku dumji blenžot uz viņa izsmeļošo 6rindi,jo nav skaidrs,piemēram,pat tas,kad man jāsāk rakstīt tas,ko viņš uzrakstīja.
Katrā gadījumā paldies jums abiem.

Tā kā nav skaidrs par kādu korektuma pārbaudi ir runa, es ieviesu funkciju testData() kura atgriež boolean vērtību atkarībā no padoto datu korektuma.
funkcijā ieraksti savus korektuma kritērijus.

Uz šo tekstu nevajag blenzt, vai nu uzdod saprātīgus papildjautājumus vai palasi kādu grāmatu par tēmu..