"Редактирование" массива используя Turbo Pascal

program Praktika;
uses crt;
type rec=record
imya:string[15];
st:real;
end;
var Massiv,t:Array[1..100] of rec;
    i,n:integer;
    flag:boolean;
begin
clrscr;
 textcolor(yellow);
 textbackground(DarkGray);
 window(25,8,66,18);
 clrscr;
repeat
writeln ('Введите количество деталей');
readln(n);
if (n=0) or (n<0) then begin
writeln ('Ошибка ввода! Введите положительное число.');
end;
until n>0;
For i:=1 to n do
Begin
writeln('---------------------------');
writeln('-',i,'(Деталь)');
writeln('---------------------------');
Writeln ('Название: ');
readln (Massiv.imya);
Writeln ('Стоимость: ');
readln (Massiv.st);
end;
writeln;
clrscr;
write('Сортировка по стоимости');
repeat
flag:=true;
for i:=1 to n-1 do
if Massiv.st>Massiv[i+1].st then
begin
t[1].st:=Massiv.st;
Massiv.st:=Massiv[i+1].st;
Massiv[i+1].st:=t[1].st;
t[1].imya:=Massiv.imya;
Massiv.imya:=Massiv[i+1].imya;
Massiv[i+1].imya:=t[1].imya;
flag:=false;
end;
until flag=true;
writeln;
writeln('----------------------');
for i:=1 to n do
begin
writeln('| ',i,'.',Massiv.imya:10,' | ',Massiv.st:5,' |');
writeln('----------------------');
end;
writeln;
writeln ('Сортировка по алфавиту');
repeat
flag:=true;
for i:=1 to n-1 do
if Massiv.imya>Massiv[i+1].imya then
begin
t[1].imya:=Massiv.imya;
Massiv.imya:=Massiv[i+1].imya;
Massiv[i+1].imya:=t[1].imya;
t[1].st:=Massiv.st;
Massiv.st:=Massiv[i+1].st;
Massiv[i+1].st:=t[1].st;
flag:=false;
end;
until flag=true;
writeln('----------------------');
for i:=1 to n do
begin
writeln('| ',i,'.',Massiv.imya:10,' | ',Massiv.st:5,' |');
writeln('----------------------');
end;
readln;
end.