Динамические структуры, Pascal

[Live1SMR]

Задание:
Составить программу, которая удаляет из списка L все отрицательные элементы.

Код:

Program P13;
uses crt;
type
Link = ^Number;
Number = record
ID: integer;
Cislo : real;
NextRec: Link;
end;
var i, c, j,k,l: integer;
a: real;
Last, First, Curr, spisok, tmp ,buf: Link;
procedure Add(var spis1:Link ;znach1: real);
var
tmp:Link;
begin
if spis1=nil then
begin
GetMem(spis1,sizeof(number));
tmp:=spis1;
end
else
begin
tmp:=spis1;
while tmp^.nextrec<>nil do
tmp:=tmp^.nextrec;
GetMem(tmp^.nextrec,sizeof(number));
tmp:=tmp^.nextrec;
end;
tmp^.nextrec:=nil;
tmp^.cislo:=znach1;
end;
procedure ShowList(first: link);
begin
Writeln('Список элементов:');
if first=nil then writeln('В списке нет отрицательных элементов')
else
begin
while first<>nil do
begin
writeln(first^.cislo);
first:=first^.nextrec;
end;
end;
end;
Procedure Del(var first:link; y:real);
Var z,x,dx:link;
Begin
z:=first;
While z<>Nil do
if z^.cislo<y then
if z=first then
begin
x:=first;
first:=first^.nextrec;
Dispose(x);
z:=first
end
else
begin
x:=z;
z:=z^.nextrec;
dx^.nextrec:=z;
Dispose(x);
end
else
begin
dx:=z;
z:=z^.nextrec
end;
End;
begin
Writeln('Укажите длину списка: ');
Readln(c);
first:=nil;
Writeln('Введите элементы:');
for i:= 1 to c do
begin
read(a);
add(first,a);
end;
j:=0;
Del (first, j);
ShowList(first);
readln;
readln;
end.

Помогите отредактировать код, так чтобы при выводе выводились только числа, без того что выделено на скрине:




________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Sibedir]

writeln(first^.cislo:4:0);

или

i: integer;
...
i := round(first^.cislo);
writeln(i);

[Live1SMR]

Точно, первый вариант подошёл, спасибо)