Контрольные на паскале

[Владимир417]

Здравствуйте все, мне очень надо оформить контрольные работы 4 шт, написать 1 контрольную и 1 курсовую. Во вложении 1-4 контрольные, 5-е задание курсовая, но она написана коряво, вот задание:
«Ипподром». Играющий выбирает одну из трех лошадей, состязающихся на бегах, и выигрывает, если его лошадь приходит первой. Скорость передвижения лошадей на разных этапах выбирается программой с помощью датчика случайных чисел.
Получить на экране картину, дающую модель движения лошадей на всех этапах дистанции. В случае, если лошадь играющего приходить первой, выводить поздравления (желательно разные от игры к игре), в противном случае – слова утешения.
Язык программирования: по выбору.
Теоретическая часть:
1 Текстовый и графический режимы
2 Переключение между текстовым и графическим режимами (инициализация и закрытие графики)
3 Основные графические функции.
Привести описания функций для рисования линии, окружности, прямоугольника, функцию для заливки некоторой области экрана заданным цветом, вывод текста в графическом режиме.
Контрольная, которую нужно писать: Дана информация о вкладчиках в сберкассы. Запись имеет вид фамилия,район,социальное положение (служащий, рабочий, крестьянин) и величина вклада. Вывести данные о том сколько среди вкладчиков, служащих, рабочих, крестьян и какова величина вклада каждой из указанных групп. Результаты представить в табличной форме. я кое-что написал, но доделать не могу никак.
type
anketa = record
fam : string[20];
raion : string[20];
status : integer;
vklad : integer;
end;
var a1:anketa;
mas : array[1..n] of anketa;
i : integer;
begin
clrscr;

for i:=1 to n do
with mas[i] do
begin
write('familiya ->'); readln(fam);
write('raion ->'); readln(raion);
write('status (0-slughachii, 1-rabochii, 2-krestyanin)->'); readln(status);
write('summa vklada ->'); readln(vklad);
end;
writeln('__________________________ ___________________________________ ');
writeln('|| || Familiya || Raion || Status ||');
writeln('||---------------------------------------------------------||');
writeln('|| Chelovek || || || ||');
writeln('||---------------------------------------------------------||');
writeln('|| Summa vklada || || || ||');
for i:=1 to n do
with mas[i] do
begin
writeln('|| ||',fam:12,'||',raion:12,'||',statu s:12,'||',vklad:12);
writeln('__________________________ ___________________________________ ');
end;
readln;
End.

Скажите сколько кто возьмет, только нужно очень срочно, до 7 июня. Если договоримся - вышлю как оформлять.

[D@rkD@iver]

пиши мне, договоримся
ISQ: 412842920
skype:hrusloff
mail: darkdaiver777@gmail.com

[Владимир417]

Сообщение от D@rkD@iver

пиши мне, договоримся
ISQ: 412842920
skype:hrusloff
mail: darkdaiver777@gmail.com

а что писать-то я вроде все описал, что мне нужно, осталось за ценой... могу, конечно, пример оформления скинуть

[fat-lip]

437675148 пиши, договоримся с ценой