33. Вывести на StatusBar фамилия имя студента а также дата время сегодняшние-системную информацию

procedure TForm1.Timer1Timer(Sender: TObject);

begin

statusbar1.Panels[0].Text:=datetostr(now)+' '+timetostr(now)+' '+ +' '+'Разработчик приложения Ташибаева Айнур Ерланкызы';

34. Из полного имени файла, которое содержится в Edit1 формируются 2 строки-одна содержит путь к файлу включая им диска и название каталога а другая его имя и расширение.

Var

Drive:Char;

Dirpart,filepart:string;

Begin

ProcessPath( Edit1.Text,Drive, dirpart,filepart)

Label1.Caption:=Drive+’:’+ dirpath+’’

Label2.Caption:=filepart;

2 способ- с помощью Extract

Var

Filename:string;

Begin

Filename:=edit1.text;

Label1.Caption:=extractfilepath(filename)

Label2.caption:=extractfilename(filename);

35.Cформировать массив стоимость. Результат из этого массива в файл Total.

Var f:textfile;

S:string[16];

i,k,cena,name.kol:integer;

stoim:array[1..10] of integer;

begin

i:=0;

assignfile(f,’mark.txt’)

reset(f);

readln(f);

while not eof(f) do

begin

inc(i);

read(f,s,cena,kol);

stoim[i]:=cena*kol;

readln(f);

end;

k:=I;

close(f);

end.