Задача с меню

[mary_jane]

Добрый вечер всем))
Имеется следующая задача:

Исходные данные: два вектора на плоскости а(х,у) и b(t,z).
меню действий
1. найти сумму векторов
2. найти разность векторов
3. найти скалярное произведение векторов
4. найти сумму длин векторов
5. выход
результат выводить после каждого действия, предусмотреть ввод некорректных данных.

поскольку я в программировании полный нубище, додуматься смогла лишь до такого:

program vektory;
var x,y,t,z:integer;
a,b,c,d,s,p:real;
dejstvie:integer;
begin
writeln ('vvedite koordinaty 1-go vektora');
readln (x,y);
writeln ('vvedite koordinaty 2-go vektora');
readln (t,z);
writeln ('koordinaty 1-go vektora', x:2, y:2);
writeln ('koordinaty 2-go vektora', t:2, z:2);
a:=(x+t);
b:=(y+z);
c:=(x-t);
d:=(y-z);
s:=(x*t)+(y*z);
p:=sqrt(sqr(x)+sqr(y));
writeln ('vyberite dejstvie');
writeln ('1 - summa vektorov');
writeln ('2 - raznost vektorov');
writeln ('3 - skalyarnoe proizvedenie vektorov');
writeln ('4 - summa dlin vektorov');
writeln ('5 - vyhod');
case dejstvie of
1: writeln ('summa vektorov', a:2, b:2);
2: writeln ('raznost vektorov', c:2,d:2);
3: writeln ('skalyarnoe proizvedenie vektorov', s);
4: writeln ('summa dlin vektorov', p);
5: exit;
else writeln ('nevernoe znachenie');
end;
readln;
end.

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