Защита о недопустимых данных

[VENOMIK]

Вот готовая программа!!Нужно сделать защиту о недопустимых исходных данных)Здесь данные считываются из файла)когда они считываются если вдруг начинает считываться недопустимый файл(символ например) программа должна вывести сообщение о недопустимых исходных данных. Как это сделать?

program abc;
type
     massivx=array[1..101] of real;
     massivy=array[1..101] of real;
var
     f1,f2:text;
	   x:massivx;
	   y:massivy;
     n,i,j:integer;
     L,temp:real;
Procedure Inter( var x:massivx; var y:massivy);
Var
    tx:array[1..101] of real;
    ty:array[1..101] of real;
	  F,temp,step,L:real;
    k,j:integer;
    flag:boolean;
Begin
step:= (x[n] - x[1])/100;
flag:=true;
For k:=1 to 101 do
begin
	L:=0;
  if flag=true then begin tx[k]:=x[1]; flag:=false; end
               else tx[k]:= x[1]+step*(k-1);
	For i:=1 to n do
	begin
		F:=1;
		for j:=1 to n do
			if i<>j then
				F:=F*(tx[k]-x[j])/(x[i]-x[j]);
		F:=F*y[i];
		L:=L+F;
	End;

	ty[k]:=L;
end;

For k:=1 to 101 do
begin
	x[k]:=tx[k];
	y[k]:=ty[k];
end;
end;

Begin
     assign(f1,'d:\!study\1.1\curs\input.dat');
     reset(f1);
     n:=0;
     While not EOF(f1) do
     Begin
          n:=n+1;
          readln(f1,x[n],y[n]);
     End;
     close(f1);

    for i:=1 to n do
		for j:=i+1 to n  do
			if x[i]>x[j] then
			begin
				temp:= x[i];
				x[i]:= x[j];
				x[j]:= temp;
			end;

     Inter(x,y);

     assign(f2,'d:\!study\1.1\curs\output.dat');
     rewrite(f2);
	 Writeln('Tablica dannix');
     For i:=1 to 101 do
       Begin
          writeln(f2,x[i]:2:2,'  ',y[i]:2:2);
	        writeln('x=',x[i]:2:2,' y=',y[i]:2:2);
	     End;
     close(f2);
End.

[Mad_Cat]

когда они считываются если вдруг начинает считываться недопустимый файл(символ например) программа должна вывести сообщение о недопустимых исходных данных. Как это сделать?

читать посимвольно в переменную типа string и переводить процедурой Val в число и по Val(s,ch,e) определять удачно или нет)

[VENOMIK]

не понял всё равно как это, можешь сделать если не тудно

[Mad_Cat]

вот например

[VENOMIK]

ок спасибо попробую что нибудь намутить!!

[VENOMIK]

не получается ничего,напишите если не трудно