Тест по Turbo Pascal

Type 
Person = record
Fio : string [20];
Ball : array [1..4] of 3..5;
x : Byte;
End;
Var
a : Person;

Var 
a, b :integer;
f : real;
t: char;
function MyFunc (x, y : real) : Integer;
Begin
MyFunc := Trunc(sqr(x-y));
End;

program Project1;
 Type
Person = record
Fio : string [20];
Ball : array [1..4] of 3..5;
x : Byte;
End;
Var
a : Person;
begin
//a.x:=a.x+2.0;   Переменная X имеет тип натурального числа, а число 2.0 имеет вещественный тип.
a.Ball[3]:=4;
//a.Ball[7]:=5;   Массив Ball не имеет 7 элемента по условиям определения переменных.
//a.Ball:=5;      Переменная B имеет тип статического массива и не может принимать единичные значения.
//a.x:=-3;        Переменная X имеет тип натурального числа, а число -3 имеет целочисленный тип.
a.Fio := 'Иванов';
 
end.

program Project1;
Var
a, b :integer;
f : real;
t: char;
 
function MyFunc (x, y : real) : Integer;
Begin
MyFunc := Trunc(sqr(x-y));
End;
 
begin
  a:=MyFunc(f,5.2);
 // t:=MyFunc(f,t); 1. Функция MyFunc возвращает значение целочисленного типа. Переменная t имеет символьный тип.
 //                 2. Функция MyFunc имеет вещественный тип переменных x, y.  Переменная t имеет символьный тип.
 // t:=MyFunc(3.0, 5.2)/3;;   Результат деления на 3 имеет вещественный тип. Переменная t имеет символьный тип.
 // t:=MyFunc(f,5.2);   Функция MyFunc возвращает значение целочисленного типа. Переменная t имеет символьный тип.
  Writeln(MyFunc(4.2, 5.0));
 // t:=MyFunc(a,t);  1. Функция MyFunc возвращает значение целочисленного типа. Переменная t имеет символьный тип.
 //                  2. Функция MyFunc имеет вещественный тип переменных x, y.  Переменная t имеет символьный тип.
 //                  3. Функция MyFunc имеет вещественный тип переменных x, y.  Переменная a имеет целочисленный тип.
end.